![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
реакция на изменение размера [D6, Win2k]
Андрусь © (2002-07-10 18:37:00)Привет всем! Тут такая проблемка: на форме - прижатая к низу панель,нужно реагировать на изменение размера формы,ловлю WM_SIZE,но при этом панель не прижимается.
Зараннее большое спасибо!
Val (2002-07-10 19:27:00) [1]А почему не воспользоваться якорями (Anchors)? Сомневаюсь, чтобы в 6-м Delphi их убрали.
Skier (2002-07-10 19:04:00) [2]>Андрусь
Словом Inherited ты вызываешь код обработки сообщения
класса-предка, если ты не хочешь наследовать (по каким-то
причинам), то тебе придётся писать обработку сообщения класса-предка самому иначе будут "бяки".
Для большей наглядности попробуй перекрыть сообщение
WM_PAINT и не поставить Inherited, СРАЗУ ВСЁ ПОЙМЁШЬ...
Андрусь (2002-07-10 18:58:00) [3]
Inherited
Честно говоря не подумал - всё работает,но что от чего ему наследовать обработчик по умолчанию.
Skier (2002-07-10 18:53:00) [4]>Андрусь (опечатка вышла :) )
procedure TForm.FormResizeing(var Message: TWMSize);
Begin
Inherited;
If Not ((fsCreating in FormState)Or(fsShowing in FormState))
Then SizeChanged:=True;
End;
Skier (2002-07-10 18:48:00) [5]>Андрусь
А где у Вас Interited, батенька ???
procedure TForm.FormResizeing(var Message: TWMSize);
Begin
Interited
If Not ((fsCreating in FormState)Or(fsShowing in FormState))
Then SizeChanged:=True;
End;
Андрусь (2002-07-10 18:45:00) [6]Извиняюсь,что сразу не написал..
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:00) [7]Обычно прилегание сверху и слева. Не скажу щас точно, но по-инглишу это там кажись Constrain. И в нём вкладочка с элайнами. Сделай элайн по-низу.
Skier (2002-07-10 18:40:00) [8]>Андрусь
Код обработчика TForm.....; message WM_SIZE; в студию !