timer per tastendruck beenden

[Wadim]

Zitat von Christian Seehase:

Moin Wadim,

meinst Du das so:

Delphi-Quellcode:

var
  Form1: TForm1;
  iCount : integer = 0;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(iCount);
  self.Caption := IntToStr(iCount);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = ord('S') then Timer1.Enabled := false;
end;

?

hab es ausprobiert aber irgendwie klapt es nicht- führt keine aktion aus- der timer läuft weiter?


@ Luckie

kannst bitte den ganzen befehl hier reinposten?- hab es ausprobiert aber ich glaube ich hab was falsch gemacht, zeigt fehlermeldung an

PS: es soll auch den timer deaktivierten wenn das formblatt nicht aktiv ist (z.b minimiert oder im systemtray)