реакция на изменение размера

← →
Андрусь © (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;

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

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

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

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

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