TTimer und Edits ?

[dominikkv]

so wie ich das verstanden habe willst du irgendwo ausserhalb deines programmes (zB auf dem desktop) einen text ausgeben.
vllt kannst du ne 2te form erstellen, die hintergrungdfarbe auf durchsichtig stellen (wenn das geht), ränder entfernen, so das nur noch das label darauf sichtbar ist... ka

[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;

[Tommy1988]

@dominikkv

du hast es leider falsch verstanden.

ob das beispiel vom User danach richtig ist, werde ich jetzt testen und dann meinen beitrag editieren

[Tommy1988]

das geht soweit aber erst nachdem ich hier aus false true gemacht habe:

Delphi-Quellcode:

  Timer1.Enabled := true;
  GetCursorpos(MousePos);
  SendMessage(Memo1.Handle, WM_COPY, 0, 0);
  SendMessage(WindowFromPoint(MousePos), WM_PASTE, 0, 0);

jetzt muss ich mir nurnoch zusammendenken wie ich eingaben aus einem memo zeilenweise auslesen usw.. und die timerzeit über ein edit steuern kann

[Tommy1988]

kann mir denn zumindest einer sagen, wie ich das interval des timers über ein editfeld steuern kann?

[bitsetter]

Timer1.Interval:= StrToInt(Edit1.Text);

[himitsu]

StrToInt wird aber mit einer Exception um sich werfen, wenn es keine gültige Zahl vorfindet.
Du solltest also entweder diese Exception behandeln, oder auf alternative Funktionen (z.B. [oh]StrToIntDef[/of]) ausweichen, welche keine Exceptionen erzeugen.

PS: eine Kontrolle der eingegebenen Werte wäre auch nicht schlecht ... negative und zugroße Zahlen würden eventuell einige nicht gweollte Auswirkungen zeigen.