![]() |
DP-Maintenance
Dieses Thema wurde von "MrSpock" von "Programmieren allgemein" nach "VCL / WinForms / Controls" verschoben.
TTimer gehört zur VCL. |
Re: TTimer und Edits ?
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 :nerd: |
Re: TTimer und Edits ?
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; |
Re: TTimer und Edits ?
@dominikkv
du hast es leider falsch verstanden. ob das beispiel vom User danach richtig ist, werde ich jetzt testen und dann meinen beitrag editieren |
Re: TTimer und Edits ?
das geht soweit aber erst nachdem ich hier aus false true gemacht habe:
Delphi-Quellcode:
jetzt muss ich mir nurnoch zusammendenken wie ich eingaben aus einem memo zeilenweise auslesen usw.. und die timerzeit über ein edit steuern kann
Timer1.Enabled := true;
GetCursorpos(MousePos); SendMessage(Memo1.Handle, WM_COPY, 0, 0); SendMessage(WindowFromPoint(MousePos), WM_PASTE, 0, 0); |
Re: TTimer und Edits ?
kann mir denn zumindest einer sagen, wie ich das interval des timers über ein editfeld steuern kann?
|
Re: TTimer und Edits ?
Delphi-Quellcode:
Timer1.Interval:= StrToInt(Edit1.Text);
|
Re: TTimer und Edits ?
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. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:31 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz