Перерасчет координат объектов

[Алексей_2012]

Здравствуйте, на форме есть несколько объектов, при развертывании ее на весь экран объекты смещаются, я создал обработчик, но думаю что писать столько кода глупо и громоздко, как можно написать проще?

procedure TForm1.EffectButton1Click(Sender: TObject);
begin
 if Form1.WindowState<>wsMaximized then
 begin
 Form1.WindowState:=wsMaximized;
 effectbutton2.left:=statictext2.width-53;
 effectbutton1.left:=effectbutton2.left-60;
 image1.top:=(form1.height div 2)-image1.height;
 image2.top:=(form1.height div 2)-image2.height;
 image3.top:=(form1.height div 2)-image3.height;
 radiobutton1.left:=image1.left;
 radiobutton1.top:=(form1.height div 2)-radiobutton1.height;
 radiobutton2.top:=(form1.height div 2)-radiobutton2.height;
 radiobutton3.top:=(form1.height div 2)-radiobutton3.height;
 button1.top:= radiobutton3.top+button1.height;
 image1.left:=statictext1.Left;
  image2.left:=(statictext1.width div 2)-(image2.width div 2);
   image3.left:=statictext1.Width-image3.width;
  end
  else
  begin
  Form1.WindowState:=wsnormal;
  form1.Height:= 564;
  form1.Width:=1157;
  effectbutton2.left:=1088;
  effectbutton1.left:=1028;
  image1.top:=119;
  image2.top:=119;
  image3.top:=119;
  radiobutton1.top:=373;
  radiobutton2.top:=373;
  radiobutton3.top:=373;
  button1.top:= 456;
  image1.left:=34;
  image2.left:=321;
  image3.left:=617;
  end
end;

[Yurk@]

настрой правильно свойство Anchors у компонентов и они будут правильно рисоваться

[Алексей_2012]

а если без анкорс?

[Yurk@]

тогда мучайся дальше)
а настроить Anchors религия не позволяет или как?

[Аватар]

а если без анкорс?

А если разрешение экрана другое и/или размер шрифта - ваши константы коту под хвост

[Алексей_2012]

анкорс настроил, но надо чтобы при увеличении форму картинки увеличивались, а кнопка было под картинками, вот код сократил

procedure TForm1.EffectButton1Click(Sender: TObject);
begin
 if Form1.WindowState<>wsMaximized then
 Form1.WindowState:=wsMaximized else Form1.WindowState:=wsnormal;
   effectbutton2.left:=statictext2.width-53;
 effectbutton1.left:=effectbutton2.left-60;
end;

[Yurk@]

но надо чтобы при увеличении форму картинки увеличивались, а кнопка было под картинками

читай пост №2

[Stilet]

картинки увеличивались

Для картинок можно указать свойство Stretch в true. тогда изображение будет само растягиваться.

[Алексей_2012]

Stretch в true

у меня итак это есть (пишу тест из картинок) в общем анкорс на bottom у картинок ставлю, а они растягиваются на больше чем нужно, так что наверное придется в обработчике ширину и высоту ставить статическую

[Stilet]

они растягиваются на больше чем нужно

Я обычно выставляю align и autosize для компонентов, и выравниваю их панелями на форме.