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)