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

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

Сделать CenterOnParent

Rusya ©   (2007-04-21 23:02:00) 

Как сделать, чтобы одна панель была постоянно в центре формы?
Назначил обработчик OnResize для формы:

procedure TForm1.KOLFormResize(Sender: PObj);
begin
if Assigned(Panel1) then Panel1.CenterOnParent;
end;
но при Maximize и Restore не срабатывает :( При назначении этой же процедуры обработчиком OnRestore и OnMaximize тоже ничего не меняет.
Поскажите правильный способ, чтобы панель всегда была в центре формы?

---

Rusya   (2007-04-22 20:23:00) [1]

> Compiler ©   (22.04.07 11:59) [1]

Спасибо, все получилось. Убрал обработку события OnResize, и оставил обработку OnMessage в таком виде:

function TForm1.KOLForm1Message(var Msg: tagMSG; var Rslt: Integer): Boolean;
begin
Result:=False;
if msg.message  = WM_SIZE then
  if assigned(panel1) then Panel1.CenterOnParent;
end;

---

Compiler   (2007-04-22 11:59:00) [2]

Попробуйте вот так

function TForm1.KOLForm1Message(var Msg: tagMSG; var Rslt: Integer): Boolean;
begin
result:=False;
case msg.message of
 WM_SIZE:
   case LoWord(msg.wParam) of
   SIZE_RESTORED,
   SIZE_MAXIMIZED:
    if assigned(panel1) then Panel1.CenterOnParent;
   end;
 end;
end;


События SIZE_RESTORED,  SIZE_MAXIMIZEDпроисходят после того, как размер формы изменится.

---

Наверх