KeyPressed Problem.

[therowe]

Heyhey liebe DPler.
Ich bin gerade dabei ein ganz kleines Programm für einen Freund zu schreiben doch hier bin ich auf ein Problem gestoßen. Ich benutze folgenden Code:

Delphi-Quellcode:

function KeyPressed(Key: Integer): Boolean;
begin
  KeyPressed := (GetAsyncKeyState(Key) and $8000 <> 0);
end;
....
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if KeyPressed(ord('a')) then
edit1.Text := edit1.Text + 'a';
....

So wenn ich aber jetzt das Programm starte und z.B. einen Texteditor öffne und in diesen z.B. ein a drücke escheint kein a in dem edit.


Ach ja ich habe den Timer auf Interval 1 und er ist Enabled = true ;)

[s.h.a.r.k]

Was zum Teufel hast du vor? Bitte keinen KeyLogger?!

Das Interval vom Timer kann maximal 15 oder 16 sein. Kleiner ist die Auflösung von dem Ding nicht.

[DeddyH]

Wieso überhaupt ein Timer und nicht die OnKeyXXX-Ereignisse?

[therowe]

Nene nur doofes Beispiel zum ausprobieren. Das Teil soll später mal bei einem Tastendruck ein bestimmtes Fenster durch eine taste öffnen. z.B. durch eben a dann. ich hatte so eine Art schon mal jedoch hier mit VK_SPACE und da ging es natürlich ... mich verwunderte ja das es nicht ging.

[s.h.a.r.k]

Er will wohl feststellen, ob eine Taste global gedrückt ist. Und das eben via Timer abfragen.

[DeddyH]

Das klingt mir aber eher nach RegisterHotKey.

[therowe]

Es soll ja im nicht aktiven Zustand seinen Zweck erfüllen. Keylogger nenenene :o man kann ja später den Timer ab und anschalten.

[DeddyH]

Nochmal: Dein Programm soll irgendetwas machen, wenn systemweit eine bestimmte Tastenkombination gedrückt wird? Dann siehe meine Antwort von oben.

[s.h.a.r.k]

@DeddyH: Verstehst du unter "Kombination" auch nur einen einzelnen? Habe mir den Link von weiter oben nicht näher angeschaut.

[DeddyH]

Das kann (evtl.) auch ein einzelner sein, aber das würde ich mir lieber ersparen (ich drücke in Word oder sonstwo auf 'a' und ein Fenster einer anderen Anwendung geht auf, na Dankeschön).

[vergessen]

Keypressed ist ein (ur)alter Hut:

[DP]
Function KeyPressed(Key:Integer):Boolean;
begin
KeyPressed:=(GetAsyncKeyState(Key) and $8000 <> 0);
end;
[/DP]

und funktioniert prima mit sowas:

[DP]
if keypressed(vk_control) then ...
[/DP]

Passwort usw. funktioneren leider nicht mehr seit der Umstellung der DP auf das neue Design (ist mir viel zu hell!).

Die Delphi-Tags habe ich hoffentlich (mit Opera 10.54) erraten :oops: ?

Edith meint: Wohl eher nicht!

[s.h.a.r.k]

ich nehm das gesagte mal bisher zurück...