AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Delphi automatisch in bestimmtem Intervall Taste senden
Thema durchsuchen
Ansicht
Themen-Optionen

automatisch in bestimmtem Intervall Taste senden

Ein Thema von microhome · begonnen am 14. Jan 2007 · letzter Beitrag vom 14. Jan 2007
 
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.784 Beiträge
 
Delphi 10.4 Sydney
 
#8

Re: automatisch in bestimmtem Intervall Taste senden

  Alt 14. Jan 2007, 11:22
Zitat von microhome:
So, bisher habe ich folgendes:

procedure TForm4.Button1Click(Sender: TObject);
var i: integer;
begin
for i:=1 to 10 do // = 10 Mal
begin
Keybd_Event(Ord('A'),0,0,0);
sleep (1000);
Keybd_Event(Ord('A'),0,KEYEVENTF_KEYUP,0);
sleep(10000); // alle 10 Sek
end;
end;

Also zum testen alle 10 Sek statt 15 Min. Nur nun habe ich durch die for-Schleife das Problem, dass ich das Ganze nicht stoppen kann. Ich könnte auf die Form noch einen Button für stop legen, aber ich kann ja die Form nicht mehr aufrufen (solange die Schleife läuft)...

Was kann ich da machen? Helfen SpeedButton da weiter?



m!cro
Anstelle einer Schleife könntest Du einen Timer benutze der alle 10 Sekunden ausgelöst wird.
Mit einem Button könntest Du den Timer von enabled auf disabled stellen um die Aktionen
zu starten oder zu unterbrechen.

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:51 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