Timer stoppen

[bluesbear]

Zitat von DelphiManiac:

mein Problem ist nun, das ich innerhalb meines Timers Application.ProcessMessages aufrufen muss, damit die Form weiter bedienbar bleibt.

Wenn die Anwendung blockiert, dann liegt das wohl daran, daß sie vor lauter Timer-Event-abarbeiten zu nichts anderem mehr kommt. Kannst du nicht das Timerintervall vergrößern?

Alternativ eine Version ohne Application.ProcessMessages:
Im Form deklarieren:FtCount : Integer; und dann

Delphi-Quellcode:

procedure TMainGUI.tmrAblaufTimer(Sender: TObject); 
begin 
  inc(FtCount);
  case FtCount of
    1 : MeinGeraet.HoleDies; 
    2 : MeinGeraet.HoleJenes; 
    3 : begin
      MeinGeraet.HoleDas; 
      FtCount := 0;
    end;
  end;
end;