Ascii Codes der F1..F12 Tasten

[xaromz]

Hallo,

kann es sein, dass Deine Abfrage in OnKeyDown steht? Da kommen nämlich keine ASCII-Codes an, sondern Virtuelle KeyCodes. Deshalb hat z. B. Shift einen eigenen Wert, aber auch F1. Testen kann man das mittels einiger Konstanten, die alle mit VK_ anfangen. Also z. B.

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F1 then
    ShowMessage('F1 wurde gedrückt!');

  if (Key = 65) then
  begin
    if (ssShift in Shift) then
      ShowMessage('A wurde gedrückt!')
    else
      ShowMessage('a wurde gedrückt!')
  end;
end;

Gruß
xaromz