28.11.2008, 22:28
|
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Ну ты даешь...
Код:
procedure TForm1.FormResize(Sender: TObject);
begin
Panel1.Left := Round((Width - Panel1.Width)/2);
Panel1.Top := Round((Height - Panel1.Height)/2);
end; |