TTimer und Edits ?

[bitsetter]

Hier hast du ein simples Beispiel:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled:= false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.SelStart:= 0;//oder manuell  selektieren
  Memo1.SelLength:= 3;//oder manuell  selektieren
  Timer1.Enabled:= true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  MousePos: TPoint;
begin
  Timer1.Enabled:= false;
  GetCursorpos(MousePos);
  SendMessage(Memo1.Handle, WM_COPY, 0, 0);
  SendMessage(WindowFromPoint(MousePos), WM_PASTE, 0, 0);
end;