Also ich hab mir grade mal ein Testprogramm geschrieben und da funktioniert alles wie es soll. Muss ein Problem bei der Verarbeitung (Ini, etc.) vorliegen:
Delphi-Quellcode:
uses
Clipbrd;
procedure TForm2.Button1Click(Sender: TObject);
var
S: String;
begin
S := Left.ToString + ',' + Top.ToString + ',' + Width.ToString + ',' + Height.ToString;
Clipboard.AsText := S;
end;
procedure TForm2.Button2Click(Sender: TObject);
var
A: TArray<String>;
begin
A := Clipboard.AsText.Split([',']);
Left := A[0].ToInteger;
Top := A[1].ToInteger;
Width := A[2].ToInteger;
Height := A[3].ToInteger;
end;
Edit:
Der Hinweis von haentschman bezüglich
OnShow ist wichtig, wenn es sich um das (aktuelle) eigene Fenster handelt.