Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Вниз

Помогите кто знает как... 


Дмитрий_Ч   (2002-02-28 12:38) [0]

... как сделать чтобы содержимое формы при изменении размера (формы) оставалось по центру???
Спасибо!!!



Алексей Петров   (2002-02-28 12:45) [1]

Обрабатывай Form.OnResize



Дмитрий_Ч   (2002-02-28 13:00) [2]

Мозно неюольшой примерчик (ну очень маленький)?



Dimich   (2002-02-28 13:14) [3]

Не проверял но должно работать. Кстати OnResize находится в object inspector на вкладке Events.
procedure tform1.onresize();
begin
form1.position:=poscreensenter;
end;



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;



Kettle of delphi   (2002-02-28 13:28) [5]

OnResize? Нууу, не знаю...

Другое предложение:

То, что тебе нужно держать по центру, прежде положи на Panel. В момент проектирования приложения, расположи Panel по центру формы. Потом отключи у Panel коррекцию по всем углам (свойстро Anchors в инспекторе объектов). Все обработается автоматически. Твоего кода не нужно!



McSimm   (2002-02-28 13:30) [6]

>Kettle of delphi (28.02.02 13:28)
Точно.
Иногда есть простое решение там где разум ищет сложности :)



Song   (2002-02-28 16:28) [7]

With Form1 Do
Begin
Position:=poDeskTopCenter;
Width:=...;
Height:=...;
IF not Visible then Show else RePaint;
End;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.027 c
1-43004           com                   2002-02-28 16:26  2002.03.14  
Как определить имя (login) текущего пользователя в Windows?


1-42998           Art1                  2002-02-28 12:24  2002.03.14  
Как работать с формами в DLL?


3-42976           Ross                  2002-02-15 22:32  2002.03.14  
Очень нужен ваш совет


6-43122           Olfi                  2001-12-23 15:57  2002.03.14  
Привет народ! Кто-нибудь знеает, как можно соединить модемы и передать чего-нибудь по нему?


3-42978           ALMAS                 2002-02-13 07:28  2002.03.14  
Клиент серверная технология