Einzelnen Beitrag anzeigen

gangs-taas

Registriert seit: 24. Mär 2009
364 Beiträge
 
#4

Re: Endlosschleife unterbrechen

  Alt 24. Mai 2009, 12:40
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Tags := 1 ;
  sleep(1000);
  Repeat
    keybd_event(Ord('Y'), 0, 0, 0);
    keybd_event(Ord('Y'), 0, KEYEVENTF_KEYUP, 0);
  Until Tags = 1000 ;
end;
also ich möchte, dass er hat solange y drückt bis ich auf den . drücke und dann erst wieder mit dieser schleife anfängt wenn ich wieder auf button1 drücke ...


EDIT
es ist ja nicht absichtlich ne endlosschelife. Sie soll ja enden ich das durch den '.' bestimme ...
  Mit Zitat antworten Zitat