Deutsches Lazarusforum

ES FUNKTIONIERT!!!

Mit KeyDown läuft jetzt alles.
Vielen Dank nochmal, ihr habt mir echt weiter geholfen!

Grüße aus Berlin!

Bei mir funktioniert es nicht...
Ich glaube mein Computer will mich ärgern.

Hier die Quellcodes, die ich probiert habe:

1.-----------

var
key_zahl : integer;
key : char;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
key_zahl:= ord(Key);
case Key_zahl of
38 ...

Bei den Pfeiltasten wird aber nichts angezeigt!?
Kann man die dann nicht weiter verwenden?

Und wie bekomme ich jetzt den Scancode für die Pfeiltasten? (2. Abfrage nach der 0)
Oder versteh ich da was falsch?

Vielen Dank Socke! :)

Mit diesem Ereignis funktioniert es!
Doch wenn ich die Pfeiltasten benutze, bekomme ich ja eine 0 (Pfeiltasten=Sondertasten)
und müsste noch einmal den ReadKey; Befehl benutzen um den Scancode abzufragen, richtig?
Mit dem Scancode kann man ja erst sehen, um welche Sondertaste ...

Hier ein Ausschnitt aus dem Quellcode, wo das Programm nicht weiter kommt:

Erstmal Danke für die schnelle Antwort! :)

Mit Google habe ich gestern satte 3 Stunden nach ähnlichen Problemen gesucht, doch nirgendwo war es so wie bei mir...
Das mit KeyPressed habe ich auch schon versucht, doch es passiert nichts.
Kann es vielleicht sein, dass er meine Tastatur nicht erkennt ...

Hallo Leute,

im vorletzten Programm konnte ich es umgehen, den ReadKey-Befehl zu benutzen. Das Programm, an dem ich arbeite, läuft ja (wird ohne Fehler compiliert), aber immer wenn der Befehl kommt, bleibt es einfach stecken.

Bsp.:

uses
Classes, SysUtils, FileUtil, Forms, Graphics, Controls ...