Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

реакция на изменение размера [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; в студию !


Наверх

Титульная страница Поиск, карта сайта Написать письмо