Tasten abfragen

[haderlump]

Hallo zusammen
Ich möchte per Tastendruck eine Aktion auslösen.
Diese würde ich in die OnKeyDown Procedure schreiben.
Als "Vorübung" habe ich schon mal folgenden Code geschrieben.

Code: Alles auswählen

procedure THauptform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   showmessage(intToStr(key));
end;  

Aber wenn ich eine Taste drücke springt das programm gar nicht in diese Procedure.
Was fehlt denn da noch.

Gruß Fritz

[m.fuchs]

Dein Tastendruck kommt wahrscheinlich gar nicht beim Formular an, sondern wird vorher von einem anderen Control abgefangen und verarbeitet.

Setz mal die Eigenschaft KeyPreview auf True, dann sollte alles passen. Damit wird das Formular vor seinen Controls über den Tastendruck informiert.

[haderlump]

Bingo Volltreffer ! jetzt geht es

Herzlichen Dank

[haderlump]

Nach dem das gut klappt, kommt natürlich das nächste Problem.
Konkreter:
das ganze gehört zu einer Modellbahnsteuerung.
Nach dem ich per Maus einen Entkuppler ausgewählt habe, soll dieser mit der Space-Taste betätigt werden. Also taste drücken -> Entkuppler geht hoch,
Space-Taste los lassen -> Entkuppler geht wieder runter. Geht auch alles.
Nun das Problem. Wenn ich auf der Taste bleibe, kommt natürlich die Tastenrepitition (macht ja das Betriebssystem).
Kann man Diese temporär ausschalten? Wenn ja, wie ?

Gruß Fritz

[theo]

Wenn ich das richtig sehe, bekommt man nur ein KeyUp Event, wenn man die Taste wirklich loslässt.
Das könntest ausnutzen.

[Mathias]

Das sieht dann etwas so aus:

Code: Alles auswählen

var
  gekuppelt: boolean = False;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: word; Shift: TShiftState);
begin
  if Key = VK_SPACE then begin
    if not gekuppelt then begin
      gekuppelt := True;
      writeln('Kuppler Hoch');
    end;
  end;
end;
 
procedure TForm1.FormKeyUp(Sender: TObject; var Key: word; Shift: TShiftState);
begin
  if Key = VK_SPACE then begin
    if gekuppelt then begin
      gekuppelt := False;
      writeln('Kuppler Unten');
    end;
  end;
end;