timer per tastendruck beenden

[Wadim]

hi,

kennt einer einen befehl wie man einen timer per tastendruck (auf tastatur) beenden kann?

z.b mit der taste 'S'

danke

[Luckie]

Taste im OnKeypress abfangen und Timer anhalten.

[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;

?

[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)

[Christian Seehase]

Moin Wadim,

Zitat von Wadim:

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

Das ist ja eine nicht wirklich unwichtige Information

Dann such' hier mal nach RegisterHotkey. Damit sollte sich das lösen lassen.

[Intruder]

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
    case key of
's': Timer1.Enabled := false;
end;
end;

das hier sollte dir helfen

[Wadim]

Zitat von Intruder:

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
    case key of
's': Timer1.Enabled := false;
end;
end;

das hier sollte dir helfen

funktioniert leider auch nicht

[Christian Seehase]

Moin Wadim,

hast Du Dir auch mal RegisterHotkey angesehen.

[Wadim]

Zitat von Christian Seehase:

Moin Wadim,

hast Du Dir auch mal RegisterHotkey angesehen.

schon aber nicht richtig- da ich kurz weg muste- unter welcher überschrift sollt ich am besten gucken

[Die Muhkuh]

Delphi-Quellcode:

if (Key = 's') or (Key = 'S') then
  Timer1.enabeled := false;

Das kommt in On keypress oder in on Key down!