Abfangen von Funktionstasten

[Hansa]

Aus dem anderen Thread http://www.delphipraxis.net/internal...ct.php?t=15582 ist noch etwas offen geblieben:

Delphi-Quellcode:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
var ZulZeichen : set of char;
begin
  ZulZeichen := [];
  with StringGrid1 do begin
    if Col = 1 then
      ZulZeichen := [#48..#57,#8,#13,#27,chr (VK_F9),chr (VK_F10)]
    else if Col = 4 then
      ZulZeichen := [#48..#57,#8,#13,#27,chr (VK_F3)];
    if not (key in ZulZeichen) then
      key := #0;
  end;
end;

Es sollen nur Zahlen und die Funktionstasten F3 bzw. F9 und F10 akzeptiert werden. Das mit dem VK_F9 usw. scheint aber so nicht zu gehen. Drücke ich F9 oder F10, so komme ich in der Prozedur erst gar nicht an. Wieso das ? Werden die immer am OnKeyPress vorbeigeschleust ? Das ganze wirkt sich zwar im Moment bei mir nicht aus, aber nur, weil ich auf der Suche nach der anderen Frage im OnKeyDown die Spalten auch abgefangen habe.

Es wäre besser, die Tasten selber abfragen zu können. Bei obigem Code werden übrigens auch x und y angenommen. Vielleicht ist das ein Ansatzpunkt.

[edit=sakura] SID aus URL entfernt. Mfg, sakura[/edit]