Button wiederholen

[SaFu]

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?

[mkinzler]

Verwende einen Timer, den du per Buttonklick strtest und rufe darin die Click-Methode des anderen Buttons auf.

[SaFu]

und mit einer verzögerung z.B. Sleep

[sirius]

Zitat:

Zitat von fuknersascha

und mit einer verzögerung z.B. Sleep

Nein, mit einem Timer (TTimer)

[Elicia]

Hi,

probier mal 'Button.OnClick(self)' - sollte funktionieren. Für die 5 Sekunden eventuell Timer nehmen!

Viel Glück!
Elicia

[SaFu]

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;

[sirius]

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

[marabu]

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

[SaFu]

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;

[Jürgen Thomas]

Hallo Sascha,

sag mal, bist Du resistent gegen Beratung?

Zitat:

Zitat von sirius

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

Durch die for-Schleife sparst Du Dir zwei Anweisungen. Außerdem fehlt bei Dir die Initialisierung von x. Und den Timer haben mehrere vorgeschlagen; das hat doch seinen Grund!!! Jürgen

[SaFu]

Ok dann so

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
var x :integer;
begin
 Memo1.Clear;
 NMHTTP1.get('http://de.finance.yahoo.com/waehrungsrechner');
 a:= NMHTTP1.Body;
   for x:=1 to 5 do
    begin
     Button2Click(Sender);
     Button3Click(Sender);
     Sleep(2000);
    end;
end;

Danke nochmal

[mkinzler]

Zitat:

sag mal, bist Du resistent gegen Beratung?

Sieht so aus
@Sascha: Du legst deinen Rechner immer noch Schlafen. (Sleep)

[SaFu]

daran Arbeite ich gerade aber danke.

[DP-Maintenance]

Dieses Thema wurde von "SirThornberry" von "Programmieren allgemein" nach "VCL / WinForms / Controls" verschoben.

[marabu]

Hallo Leute,

hackt nicht auf Sascha rum wegen dem Einsatz von Sleep(). Ich bin ja auch nicht so glücklich bei der Vorstellung, dass da mehrmals hintereinander zwei Button-Clicks in Folge simuliert werden sollen, aber nicht auszudenken was alles passiert, wenn der Benutzer des Programms mittendrin die Kontrolle erhielte und eigenmächtig auf Button42 klicken würde. Ich verweise dazu nochmal auf Beitrag #8.

Freundliche Grüße