Delphi timer per tastendruck beenden

Thema durchsuchen

Ansicht

Themen-Optionen

timer per tastendruck beenden

Ein Thema von Wadim · begonnen am 7. Okt 2003 · letzter Beitrag vom 7. Okt 2003

Antwort

Christian Seehase

(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.124 Beiträge

Delphi 11 Alexandria

Re: timer per tastendruck beenden

7. Okt 2003, 12:55

Moin Wadim,

meinst Du das so:

zusammenfalten · markieren

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;

Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist