Globale Tastaturabfrage

[inherited]

Zitat:

Zitat von toms

Zitat:

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 :lol:

[MartinA]

Zitat:

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 :gruebel:

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 .... :)