Главная страница
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.022 c
1-1096577502
deos
2004-10-01 00:51
2004.10.17
Иконки


1-1096967239
Леонид
2004-10-05 13:07
2004.10.17
Точки останова и ошибка компиляции


1-1096895878
Idoga
2004-10-04 17:17
2004.10.17
Отключиться от Excel


14-1096427283
080D:07BBh
2004-09-29 07:08
2004.10.17
Регулярные выражения


1-1096995309
UserUserov
2004-10-05 20:55
2004.10.17
Каталоги