Registriert seit: 17. Jan 2007
1.169 Beiträge
Turbo Delphi für Win32
|
Re: TTimer und Edits ?
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
|
|
Zitat
|