Kein Aufrauf von CMDialogKey auf einem Formular

[ibp]

Hallo,

ich habe: Form<-Panel<-Panel<-Stringgrid<-Combobox,Checkbox
Die Cobo- und Checkbox werden in bestimmten Spalten vom Grid angezeigt. Das klappt auch alles wunderbar. Nur das Navigieren im Grid, mit Pfeil und Tab, macht mir Probleme. Mit OnKeyDown klappt nicht alles. Also habe ich mir gedacht, einfach die Tastaturereignisse abfangen:

Delphi-Quellcode:

...
  private
    ...
    procedure CMDialogKey(var msg: TWMKey); message CM_DIALOGKEY;
...
procedure TfoData.CMDialogKey(var msg: TWMKey);
begin
  beep;                 // <--- nur zu Kontrollzwecken

  if (ActiveControl=cobsg) or
     (ActiveControl=dedsg) or
     (ActiveControl=chbsg) then
  begin
    sgView.SetFocus;
    sgView.Perform(WM_KEYDOWN, msg.CharCode, msg.KeyData);
    msg.Result := 1;

    case msg.CharCode of
      vk_tab, vk_right:
        if sgView.Col<sgView.ColCount-1 then
          sgView.Col:=sgView.Col+1
        else
          sgView.Col:=0;
      vk_left:
        if sgView.Col>0 then
          sgView.Col:=sgView.Col-1
        else
          sgView.Col:=sgView.ColCount-1;
      vk_return,vk_down:
        if sgView.Row=sgView.RowCount-1 then
          sgView.Row:=1
        else
          sgView.Row:=sgView.Row+1;
      vk_up:
        if sgView.Row<=1 then
          sgView.Row:=sgView.RowCount-1
        else
          sgView.Row:=sgView.Row-1;
    end;// case
  end
  else
    inherited;
end;

... KeyPreview:=True ist gesetzt!

Trotzdem ertönt, wenn ich im Stringgrid (sgView) eine Taste drücke kein Beep! Also wird die Prozedur nicht aufgerufen!
Warum? :gruebel:

Nachtrag: wenn ich Enter drücke wird die Prozedur aufgerufen :shock: , Warum also nicht auch bei den anderen Tasten?

[ibp]

schieb!