Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #2  
Старый 19.10.2012, 22:18
Heneken Heneken вне форума
Новичок
 
Регистрация: 11.09.2011
Сообщения: 73
Версия Delphi: Delphi XE6
Репутация: 10
По умолчанию Ошибка

Во втором листинге кода ошибка(менял имя панели,в этом листе не заменил) Ну и не указана процедура .Вот так верно
Код:
procedure TFORM_GLAV.eventes_formsMessage(var Msg: tagMSG;
  var Handled: Boolean);
  var poz_W_p,poz_H_p,poz_w,poz_h:integer;
begin
if (scrols_bot_top=true) or(scrols_left_right=true) then
begin
poz_W_p:=mouse.CursorPos.X-FORM_GLAV.Left;
poz_H_p:=mouse.CursorPos.Y-FORM_GLAV.Top;
poz_w:=poisks.left+poisks.width;
poz_h:=poisks.height+poisks.Top;
if ((sh_no_spee.width>560)and(poz_W_p<poz_w) and (scrols_left_right=true)and (scrols_bot_top=false))or((sh_no_spee.width<290)and(poz_W_p>poz_w)and (scrols_left_right=true)and (scrols_bot_top=false)) or((sh_no_spee.Height<220)and(poz_H_p>poz_h)and (scrols_left_right=false)and (scrols_bot_top=true))or((sh_no_spee.Height>550)and(poz_h_p<poz_h)and (scrols_left_right=false)and (scrols_bot_top=true))then
begin
tajmer.Enabled:=true;
end
else
if (sh_no_spee.width<290) or(sh_no_spee.width>560)or(sh_no_spee.Height<220)or(sh_no_spee.Height>550) then tajmer.Enabled:=false
                                                                                    else tajmer.Enabled:=true;
end;
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 16:46.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025