![]() |
Button wiederholen
Hi hab mal ne ganz Simple.
Wie wiederhole ich einen Button.Click 5 mal im Abstand von 5 Sekunden denn ich mit einem anderen Button ausführe? |
Re: Button wiederholen
Verwende einen Timer, den du per Buttonklick strtest und rufe darin die Click-Methode des anderen Buttons auf.
|
Re: Button wiederholen
und mit einer verzögerung z.B. Sleep
|
Re: Button wiederholen
Zitat:
|
Re: Button wiederholen
Hi,
probier mal 'Button.OnClick(self)' - sollte funktionieren. Für die 5 Sekunden eventuell Timer nehmen! Viel Glück! Elicia |
Re: Button wiederholen
Kann man das nicht irgendwie so Realisieren??
Delphi-Quellcode:
procedure TForm1.Button6Click(Sender: TObject);
var x :integer; begin while x:=1 < 5 do begin Sleep(1000); Button2.Click; Button3.Click; inc(x); end; end; |
Re: Button wiederholen
Also wenn dann schon "for x:=1 to 4 do"
Aber dann wartet der User ja 4 Sekunden und kann nix machen. Nimm doch einen Timer |
Re: Button wiederholen
Hallo Sascha,
bevor du weiter programmierst: Wenn du Code für ein ButtonClick-Event geschrieben hast und diesen Code auch von anderen Stellen aus aufrufen möchtest, dann empfiehlt es sich spätestens jetzt diesen Code in eine eigene Prozedur auszulagern. Die Entscheidung zwischen Sleep() und einem Timer hängt auch davon ab, ob die Zeit möglichst exakt eingehalten werden muss, in welchem Verhältnis die Wartezeit zur Ausführungszeit deines Codes steht und ob der Benutzer zwischenzeitlich überhaupt eine andere Aktion anstoßen darf. Grüße vom marabu |
Re: Button wiederholen
habs
Delphi-Quellcode:
procedure TForm1.Button6Click(Sender: TObject);
begin Memo1.Clear; NMHTTP1.get('http://de.finance.yahoo.com/waehrungsrechner'); a:= NMHTTP1.Body; while x < 5 do begin Button2Click(Sender); Button3Click(Sender); x:=x+1; Sleep(2000); end; end; |
Re: Button wiederholen
Hallo Sascha,
sag mal, bist Du resistent gegen Beratung? Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:55 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