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:

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:

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:

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:

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!