| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите кто знает как... [D6]
Дмитрий_Ч © (2002-02-28 12:38:00)... как сделать чтобы содержимое формы при изменении размера (формы) оставалось по центру???
Спасибо!!!
Song (2002-02-28 16:28:00) [1]With Form1 Do
Begin
Position:=poDeskTopCenter;
Width:=...;
Height:=...;
IF not Visible then Show else RePaint;
End;
McSimm (2002-02-28 13:30:00) [2]>Kettle of delphi (28.02.02 13:28)
Точно.
Иногда есть простое решение там где разум ищет сложности :)
Kettle of delphi (2002-02-28 13:28:00) [3]OnResize? Нууу, не знаю...
Другое предложение:
То, что тебе нужно держать по центру, прежде положи на Panel. В момент проектирования приложения, расположи Panel по центру формы. Потом отключи у Panel коррекцию по всем углам (свойстро Anchors в инспекторе объектов). Все обработается автоматически. Твоего кода не нужно!
McSimm (2002-02-28 13:26:00) [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;
Dimich (2002-02-28 13:14:00) [5]Не проверял но должно работать. Кстати OnResize находится в object inspector на вкладке Events.
procedure tform1.onresize();
begin
form1.position:=poscreensenter;
end;
Дмитрий_Ч (2002-02-28 13:00:00) [6]Мозно неюольшой примерчик (ну очень маленький)?
Алексей Петров (2002-02-28 12:45:00) [7]Обрабатывай Form.OnResize
| |
