Panel verschieben bis Button1.left ?

Hallo

ich habe ein kleines Problem mit diesem Code
der Code verschiebt Schritt für Schritt den Panel
Das funktioniert aber nicht ideal wenn ich die Form skaliere, da der Panel zu falsche Stelle kommt

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var i: Integer;

begin

 for i:=1 to 5 do 

   begin

   Application.ProcessMessages;

   //Panel1.Left:=Panel1.Left-25; // funktioniert exakt nur wenn Form1 nicht skaliert 

    Panel1.Left:=Panel1.Left-Panel1.Width div 5; // nicht schlecht aber immer noch nicht exact

   Sleep(50);

   end;

   Button1.Enabled:=false;

   Button2.Enabled:=true;

end;

Wie kann ich den Panel richtig verschieben in die selbe Stelle auch wenn ich öfter
die Form ständig skaliere (vergrößern und verkleinern) ?

Panel verschieben bis Button1.left ?

Panel verschieben bis Button1.left ?

Forumregeln