Globale Tastaturabfrage

[inherited]

Zitat von toms:

Zitat von Semikolon:

if key=vk_right then image1.left:=image1.left+100

Wenn ich dann also Rechts gedrückt halte bewegt sich das Image rasant schnell vorwärts.

...oder du veränderst die Konstante 100 und schreibst z.B + 20.

Was ziemlich Dumm wäre, weil dann die Geschwindigkeit mit der sich das Image bewegt von PC zu PC unterschiedlich ist.

[Semikolon]

dAchsoooo meinst du das haha

Nicht auf Keydown sondern Keyup reagieren,einfach und gut !

Danke

[MartinA]

Zitat von franktron:

Z.b. mein Programm läuft unten in der Tray mit und ich bin in Irgendeinem Programm und drücke eine Tastenkombination,
dann soll mein Programm was ausführen.

Wie geht das

Beispielsweise so:

Code:

procedure keytimer(WND: Hwnd; uMsg: Word; IdEvent: Word; dwTimer: DWord); stdcall; Far;
begin
  if getasynckeystate (VK_TAB)<>0 then 
    begin
      tue_dies_und_mach_das;
    end;
end;

begin
  TimerHandle := SetTimer(0, 0, 1000, @keytimer);
end;

Gruß
Martin

Edit => Sorry hatte nicht auf das Datum geachtet ....