Ich erkläre es noch mal genauer.
Du musst es mit einem SpeedButton lösen, denn der Button, den du klickst, klaut dir den Fokus, sodass dein Edit oder Memo oder wasauchimmer nicht mehr aktiv ist. Hier ist mein Code für das onClick des Speedbuttons:
Delphi-Quellcode:
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if not (activecontrol is TCustomEdit) then //Falls das aktive Control kein TCustomEdit, also z.B. Memo oder Edit ist,
exit; // wird sofort abgebrochen
Memo2.lines.commatext:=TCustomEdit(activeControl).SelText; //Ich caste das aktive Control nach TCustomEdit und
end; //verwende dessen Eigenschaft selText, um den markierten
//Text in Memo2 zu schreiben
Bei mir funktioniert das mit Edits und Memos.
Hoffe geholfen zu haben
Apollonius