Unterster Punkt eines TImage

[bitsetter]

Hi,

Delphi-Quellcode:

  
procedure TForm3.FormShow(Sender: TObject);
begin   
     image3.top:=image1.top+image1.height+30;
     image4.top:=image2.top+image2.height+30;
     button1.top:=image5.top+image5.height+30;//<--
    with form3 do
     begin
          show;
          top:=form1.Top;
          left:=form1.left;
          width:=form1.width;
          height:=form1.Height;
     end;
     with button1 
     begin
          setfocus;
          left:=form2.button1.Left;
          top:=form2.button1.top;//<--
          height:=form2.button1.height;
          width:=form2.button1.Width;
     end;
end;

Änderst du nicht noch ein 2. Mal die Position des Button1 ?