Вниз
Скачать: CL | DM;

реакция на изменение размера   Найти похожие ветки 

 
Андрусь ©   (2002-07-10 18:37) [0]

Привет всем! Тут такая проблемка: на форме - прижатая к низу панель,нужно реагировать на изменение размера формы,ловлю WM_SIZE,но при этом панель не прижимается.
Зараннее большое спасибо!


 
Skier ©   (2002-07-10 18:40) [1]

>Андрусь
Код обработчика TForm.....; message WM_SIZE; в студию !


 
Андрусь ©   (2002-07-10 18:45) [2]

Извиняюсь,что сразу не написал..

procedure TForm.FormResizeing(var Message: TWMSize);
Begin
If Not ((fsCreating in FormState)Or(fsShowing in FormState))
Then SizeChanged:=True;
End;


Видимо message перекрываю,но как его original пересылать?


 
AL2002 ©   (2002-07-10 18:45) [3]

Обычно прилегание сверху и слева. Не скажу щас точно, но по-инглишу это там кажись Constrain. И в нём вкладочка с элайнами. Сделай элайн по-низу.


 
Skier ©   (2002-07-10 18:48) [4]

>Андрусь
А где у Вас Interited, батенька ???


procedure TForm.FormResizeing(var Message: TWMSize);
Begin
Interited
If Not ((fsCreating in FormState)Or(fsShowing in FormState))
Then SizeChanged:=True;
End;



 
Skier ©   (2002-07-10 18:53) [5]

>Андрусь (опечатка вышла :) )


procedure TForm.FormResizeing(var Message: TWMSize);
Begin
Inherited;
If Not ((fsCreating in FormState)Or(fsShowing in FormState))
Then SizeChanged:=True;
End;




 
Андрусь ©   (2002-07-10 18:58) [6]

Inherited
Честно говоря не подумал - всё работает,но что от чего ему наследовать обработчик по умолчанию.


 
Skier ©   (2002-07-10 19:04) [7]

>Андрусь
Словом Inherited ты вызываешь код обработки сообщения
класса-предка, если ты не хочешь наследовать (по каким-то
причинам), то тебе придётся писать обработку сообщения класса-предка самому иначе будут "бяки".

Для большей наглядности попробуй перекрыть сообщение
WM_PAINT и не поставить Inherited, СРАЗУ ВСЁ ПОЙМЁШЬ...


 
Val ©   (2002-07-10 19:27) [8]

А почему не воспользоваться якорями (Anchors)? Сомневаюсь, чтобы в 6-м Delphi их убрали.



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.007 c
3-70599
Darts
2002-06-29 15:47
2002.07.22
ENoResult (Error creating cursor handle)


1-70675
Maxuz
2002-07-09 01:26
2002.07.22
StatusBar


8-70831
amid
2002-03-14 20:47
2002.07.22
tiff файлы в Delphi


14-70926
Sejatel
2002-06-05 09:02
2002.07.22
Размер массива.


8-70834
Baron
2002-03-09 18:18
2002.07.22
GLScene




   Наверх