|
(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
Delphi 11 Alexandria
|
Re: timer per tastendruck beenden
7. Okt 2003, 13:55
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;
?
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
|