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

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

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

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

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.