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