TTimer und Edits ?

[Tommy1988]

Hallo, ich hätte gerne, dass Text den ich in ein Editfeld eingebem, nach einer egbstimmten zeit automatisch da (wo der cursor gerade ist) hingeschrieben/eingefügt wird.. wenn ihr versteht wie ich das meine..

nur leider finde ich ÜBERHAUPT nix zu Timer bzw. TTimer.

wie lässt sich das realisieren?

Text aus Edits ins Clipboard schreiben, und nach der ttimerzeit wieder ausgeben? das wäre denk ich möglich aber lästig da der text im clipboard wäre..

[SirThornberry]

das liegt daran das der Timer recht simpel ist. Wenn du Enabled auf True setzt wird im eingestellten Intervall die Methode aufgerufen welche bei OnTimer zugewiesen ist. Mehr macht der Timer nicht. Und was du dann eben in diesem Intervall immer wieder machst ist nicht mehr Sache des Timers

[Tommy1988]

mhh wenn du mir schon soviel sagst:

wie man einen mausklick simuliert weis ich.. ich würde das so hinkriefgen wie ich es mir vorstelle nur an einem hapert es..

der text soll aus dem edit oder dem memo ganz egal.. dort hingeschrieben werden wo sich der cursor befindet..

[SirThornberry]

das ist dann Edit bzw. Memospezifisch. Beim Edit und Memo sollte es das Property SelStart sein.

[Tommy1988]

nunja.. so kann ich recht wenig damit anfangen. vielleicht eni kleines codebeispiel?

edit:

habe hier was gefuden weis aber nicht obs korrekt ist (sieht für mich jedenfalls richtig aus)

Delphi-Quellcode:

procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Edit1.Text := IntToStr(Memo1.SelStart);
end;

procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Edit1.Text := IntToStr(Memo1.SelStart);
end;

[SirThornberry]

mit SelStart bekommst du die aktuelle Cursorposition im Edit. Wie man einen String (Edit.Text) mit "copy" etc. manipuliert findet sich über die Suchfunktion und in der Hilfe.

[Tommy1988]

also meine frage ist einfach:

wie bekomme ich den text aus dem edit nach X-Sekunden dort hin wo sich der cursor gerade befindet (da wo der cursor sein soll ist NICHT im programm !)

edit:

Memo1.SelText:='neuer Text';

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.SelLength:=0;
  Memo1.SelText:='Text einfügen';
end;

dieser code fügt "neuer Text" zwar ein.. aber nicht da wo ich es will.. es soll nicht in ein memo oder edit geschrieben werden sondern dort hin wo sich der cursor befinden (außerhalb meines programms)..

[Tommy1988]

ich habe jetzt was von wegen

SendMessage(hedit,WM_PAST,0,0); gelesen aber wo ist in dem ding bitteschön mein edit definiert ?

da wird der kram vom clipboard kopiert soviel weis ich

[SirThornberry]

hEdit vielleicht?! (Handle des Edits) Aber wie bereits erwähnt gibt es zur Stringmanipulation schon jede Menge.

[Tommy1988]

und bei mir auch.. wie erwähnt, eijn BEISPIEL wäre nicht schlecht da ich mich mit sowas noch nicht lange beschäftige und im tut sowas nicht finden kann