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!

[Wadim]

Zitat:

Zitat von Spider

Delphi-Quellcode:

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

Das kommt in On keypress oder in on Key down!

geht auch nicht?

[Christian Seehase]

Moin Wadim,

der Thread "Hotkey" dürfte reichlich Informationen enthalten.

[Die Muhkuh]

Mach das mal so:

Platziere eine Gauge und ein Timer!
In das OnTimer-event von Timer schreibst du:

Delphi-Quellcode:

Gauge1.progress := Gauge.progress + 1;

dann stellst du denn intevall vom Timer auf 200.

Danach machst du auf der Form ein OnKeyPress-Event (ist auf der form im OI inter ereignisse)!
In dieses onkeypress schreibst du:

Delphi-Quellcode:

if Key = 's' then
    Timer1.enabled := false;

Dann auf 's' (kleines s) drücken und es müsste anhalten!

Spiddi

[Christian Seehase]

Moin Spider,

für den Fall, dass das Programm aktiv ist, also den Tastaturfokus hat hast Du natürlich recht, aber Wadim möchte den Timer auch abschalten, wenn sein Programm nicht aktiv ist, und in diesem Falle würde das OnKeyPress nicht ausgeführt.