Panel verschieben bis Button1.left ?

[Delphiturbo]

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

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) ?

[DeddyH]

Wenn Du das Panel immer um 1/5 seiner Breite verschiebst, wäre es reiner Zufall, wenn das mit Button1.Left zusammentreffen würde.

[mkinzler]

Ist ja klar 9 DIV 5 = 1
5 * 1 = 5 Abstand zu 10 = 5
Im letzten Schritt Rest nehmen.

[Die Muhkuh]

Eine While oder Repeatschleife + das was Du als Threadtitel hast, als If-Abfrage ;)

[Sharky]

Bitte seit mir nicht böse.

Aber Ich habe Delphiturbo etwas eindeutiges gesagt.

Da er nicht anwortet wird ab jetzt jeder Thread von ihm geschlossen.