Форум: "Основная";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
ВнизПомогите кто знает как... Найти похожие ветки
← →
McSimm (2002-02-28 13:26) [4]Этот код удержит Panel1 в центре формы.
procedure TForm1.FormResize(Sender: TObject);
var T: TPoint;
begin
T.X := (ClientWidth - Panel1.Width) div 2;
T.Y := (ClientHeight - Panel1.Height) div 2;
if T.X < 0 then T.X := 0;
if T.Y < 0 then T.Y := 0;
Panel1.Left := T.X;
Panel1.Top := T.Y;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c