Tastaturabfrage

[PetBurki]

Bei mir kennt er dieses FormKeyDown garnicht! Gibts vielleicht noch ne andere möglichkeit?

[inherited]

Form anklicken, im ObjectInspector auf "Ereignisse", doppelt in das Feld hinter OnKeyDown

[PetBurki]

danke

[PetBurki]

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 
begin 
  if Key = VkKeyScan('a') then 
    caption := 'toll es wurde a gedrückt' 
  else Key = VkKeyScan('w') then                   <------In dieser Zeile meldet er den Fehler:
    caption := 'es wurde w gedrückt';
end;

[Warning] Unit1.pas(33): Comparing signed and unsigned types - widened both operands

[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst machen - Mfg, SirThornberry[/edit]

[inherited]

Das ist kein Fehler sondern eine Warnung, der Fehler steht ne Zeile tiefer
*kristallkugelmodus* es muss else if heissen

[PetBurki]

immernoch der Fehler:
[Warning] Unit1.pas(33): Comparing signed and unsigned types - widened both operands

[inherited]

Da steht doch vor, das ist eine Warnung
Warnung <> Fehler

[Matze]

Dann schreibe ihm doch gleich, wie man diese Warnung auch behebt, denn Warnungen sind auch nicht so das Wahre.

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = Ord('A') then
    Caption := 'toll es wurde a gedrückt'
  else if Key = Ord('W') then
    Caption := 'es wurde w gedrückt';
end;