Einzelnen Beitrag anzeigen

Benutzerbild von bitsetter
bitsetter

Registriert seit: 17. Jan 2007
1.169 Beiträge
 
Turbo Delphi für Win32
 
#13

Re: TTimer und Edits ?

  Alt 29. Jan 2007, 21:14
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;
Gruß bitsetter
"Viele Wege führen nach Rom"
Wolfgang Mocker (geb. 1954), dt. Satiriker und Aphoristiker
  Mit Zitat antworten Zitat