Markierten Text in Edit Feld übertragen

[Nagetier]

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