Edit по середине формы

[Михаил Юрьевич]

Подскажите как сделать что бы Edit был всегда
посередине формы и при развернутом окне и при нормальном окне.
И при разном разрешении экрана.а то при другом разрешении экрана
Edit где то в углу.

[Ozerich]

Обрабатывай событие у формы OnResize;

И пиши в нем

edit1.left:=form1.width div 2;

[Старовъръ]

А в Delphi нет что-то наподобие менеджеров компановки?

[mutabor]

Про менеджеры компоновки не слышал, но вообще в Дельфи удобные средства размещения компонентов, есть панели и прочие контейнеры. Визуальная среда считается одной из лучших.

У каждого компонента есть свойства (якоря - anchors) привязки к одной из сторон или сразу к нескольким. Расположение - Align. Вручную делают только те, кто мало знаком со средой, лишь в некоторых случаях приходится расположение объектов на форме прописывать вручную.

[mutabor]

посередине формы и при развернутом окне и при нормальном окне.

Не знаю как в последних версиях, но раньше в Дельфи не было события максимайз и рестор из него, только минимайз. Нужно WinAPI сообщения юзать. Событие OnResize при разворачивании не генерируется.

[_Dmitry]

Если все якоря (anchors) установить в false, то положение компонента, при изменении размера формы, будет пропорционально первоначальному. Размести его точно посередине и он всегда будет там.

[Михаил Юрьевич]

Все выше перечисленные методы не помогли.В OnResize обрабатывал,также
при изменении формы Edit в стороне.Все якоря на false дают тот же результат.Обрабатывал в контейнерах,в частности в Panel, при разрешении
экрана 800:600 Edit уползает в право.Проектирую при разрешении 1280:960

[Баламут]

Сейчас проверил, вроде работает. Якоря все в false.

procedure TForm1.FormPaint(Sender: TObject);
var
  x, y: integer;
begin
  x := (Form1.ClientWidth div 2) - (Edit1.Width div 2);
  y := (Form1.ClientHeight div 2) - (Edit1.Height div 2);
  Edit1.Left := x;
  Edit1.Top := y;
end;

[Sibedir]

Delphi 7. Работает просто при Anchors := []. И всё.

[Михаил Юрьевич]

Попробовал код Баламута,все якоря выставил в false.Пока не откомпилировано то все работает и при развернутом,и при нормальном окне,и за углы форму растягиваю,все нормально Edit по середине,а вот откомпилировал и запустил программу то опять Edit не по середине