Pinball mit Lazarus programmieren

[Hanoi1]

Hallo!

Ich wollte mal ausprobieren, ob man mit Lazarus ein Pinball-Spiel programmieren kann.
Dabei bin ich gerade noch ziemlich am Anfang, d.h. die Kugel bewegt sich schon mal, aber die Flipper eben noch nicht. Es würde sich ja aanbieten, diese per Knopfdruck zu aktivieren (Buttons sind sicher keine gute Lösung...). Wie genau kann man das jetz machen?

Ich habe einige einfache Versuche mit KeyDown gemacht, aber irgendwie hat das nicht hingehauen (das Programm wurde kompiliert, hat aber nicht reagiert).
Kann mir vielleicht jemand einen vollständigen und funktionierenden Quelltext schicken, sodass ich den mit meinem vergleichen kann?
Es wäre ideal, wenn Strg

Delphi-Quellcode:

showmessage ('!')

ausgelösen würde.

Vielen Dank schonmal!:thumb:

[querter]

Hallo Hanoi1,

falls noch von Interesse ...

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  // "KeyPreview" des Formulars auf "true".
  KeyPreview := TRUE;

end;

damit sollte dann OnKeyDown bei Tastendruck ausgelöst werden ... wobei die rechte Ctrl Taste Dir sicherlich ein paar Kopfschmerzen bereiten wird ... ;-)

Sonnige Grüße Querter

[markus5766h]

Zitat:

Zitat von querter (Beitrag 1337488)

... wobei die rechte Ctrl Taste Dir sicherlich ein paar Kopfschmerzen bereiten wird ... ;-)

Sonnige Grüße Querter

warum ?
mit

Delphi-Quellcode:

function KeysCtrlChange: Byte;
begin 
  if GetKeyState(VK_LCONTROL) < 0 then Result := 4
    else if GetKeyState(VK_RCONTROL) < 0 then Result := 5
      else Result := 0;
end;

kann ich doch ganz leicht zwischen rechter und linker CTRL-Taste unterscheiden . . .