Thema: Delphi warten mit timer

Einzelnen Beitrag anzeigen

elcomportal

Registriert seit: 17. Jun 2005
12 Beiträge
 
Delphi 5 Standard
 
#1

warten mit timer

  Alt 17. Jun 2005, 21:08
wie kann ich einfach xx Millisekunden warten und dann weitermachen im Programm. Die Zeit muss nicht so genau sein.

Hab es so probiert, geht aber net. ok wird scheinbar nie 1 und das Programm lässt sich nicht mehr bedienen / schliessen.

Delphi-Quellcode:
Procedure TForm1.senden(Sender: TObject);
begin
 try
  Serial1.Active:=true;
  str := '';
  shape1.brush.color := clred;
  str:= befehl + #13;
  label39.caption := str;
  befehl :='';
  n:=serial1.TransmittText(str);
  ok:=0;
  timer1.enabled := true; // Timer starten
  while ok=0 do // so lange wie ok 0 ist nichts machen
   begin
   end;
  timer1.enabled := false; timer stoppen
// hier kommt noch Code hin
  label33.caption := helpstr;
  if helpstr = 'okthen
   shape1.brush.color := clgreen;
 except
        if Application.MessageBox('Kommunikationsfehler!','', MB_OK + MB_DEFBUTTON1) <> IDOK then
  raise;
  befehl :='';
  str:='';
 end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Interval := 10;
  ok:=1;
end;
mfg
Torsten
  Mit Zitat antworten Zitat