Der Code geht schon, allerdings is das Problem, dass er nur auf der Eigenen Form das überprüft, wenn ich auch Form1 was markiere, dann wird es nicht in Die Zwischenablage auf Form2 Kopiert!
Allerdings lässt sich das durch eine Einfache Änderung beheben
Delphi-Quellcode:
procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
if not (Form1.activecontrol is TCustomEdit) then
exit;
Form2.Edit1.Text:=TCustomEdit([b]Form1[/b].activeControl).SelText; //einfach noch die Form angeben
end;
Vielen Dank, das ist genau das was ich gesucht habe