TabOrder / TabStop funktioniert nicht

[DeddyH]

Wie ist es so?

Delphi-Quellcode:

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;}
  inherited;
end;