TabOrder / TabStop funktioniert nicht

[HolgerCW]

Hallo,

ich habe den Fehler gefunden. Nur verstehe ich Ihn nicht. Ich habe auf der Form ein StringGrid in das ich eine ComboBox integriert habe.

Nun gibt es dort unter den privaten proceduren folgende procedure:

Delphi-Quellcode:

...
private

    procedure CMDialogKey(var msg: TCMDialogKey); message CM_DIALOGKEY;

public
    { Public-Deklarationen }
end;


...
procedure TForm_bearb.CMDialogKey(var msg: TCMDialogKey);
begin

 {if ActiveControl = CB_Einheit then begin

  if msg.CharCode = VK_TAB then begin
   // setzt den Fokus zurück auf das StringGrid
   StringGrid.SetFocus;
   StringGrid.Perform(WM_KEYDOWN, msg.CharCode, msg.KeyData);
   msg.Result := 1;
   exit;

  end;

 end;}

end;

Auch wenn ich so wie oben dargestellt den Code ausklammere funktioniert der TabStop nicht. Erst wenn ich die procedure komplett entferne geht der TabStop wieder ?

Die Funktion ist dafür da, das wenn der TabStop in der implementierten ComboBox gedrückt wird, dann wieder auf das StringGrid springt, aber leider funktionieren dadurch alle anderen TabStops nicht mehr.

Was kann ich tuen ?

Gruss

Holger