Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.17;
Скачать: CL | DM;

Вниз

TFrame versus WM_NCHITTEST   Найти похожие ветки 

 
vt   (2004-10-05 03:21) [0]

Хочу таскать форму за любое место, но на форме у меня расположены динамически созданные фреймы с контроллами, соответственно для того, чтобы можно было тасать за фрейм, в класс фрейма я добавил код:

procedure Tframe_clist.WMNCHitTest(var msg: TWMNCHitTest);
begin
inherited;
if msg.Result=htClient then msg.Result:=htTransparent;
end;



Но фрейм не хочет пропускать под себя сообщения и форма не таскается за фрейм, что можно в этом случае сделать?

PS: в самой форме конечно же имеется:

procedure Tform_main.WMNCHitTest(var msg: TWMNCHitTest);
begin
inherited;
if msg.Result=htClient then msg.Result:=htCaption;
end;


 
Fay ©   (2004-10-05 03:33) [1]

Если таскание делал через OnMouseDown + SendMessage(Self.Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0), можешь просто заместить OnMouseDown фрейму.


 
vt   (2004-10-05 11:02) [2]

Нет, таскание формы делал через обработку WMNCHitTest (см. код выше).
И ещё прикол, у фреймов не срабатывают обработчики OnMouseDown и другие... :(


 
Fay ©   (2004-10-05 11:06) [3]

Я проверял 8)



Страницы: 1 вся ветка

Текущий архив: 2004.10.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.036 c
4-1094717557
Koala
2004-09-09 12:12
2004.10.17
Атрибуты файла


14-1096223077
Gero
2004-09-26 22:24
2004.10.17
Не определяется память


14-1096038846
Krez
2004-09-24 19:14
2004.10.17
Линковка паскаля и фортрана


1-1096299900
Руслана
2004-09-27 19:45
2004.10.17
Подскажите пожалуйста как преобразовать массив байт


1-1096529257
Term
2004-09-30 11:27
2004.10.17
Простой вопрос, как сделать что бы в TPageControl сделать нужную