TabOrder / TabStop funktioniert nicht

[HolgerCW]

Hallo,

ein Panel ist dort nicht und die GroupBoxen sind auch alle Enabled = TRUE

Ist da eventuell noch eine andere Einstellung die das mit den Tabs verhindern kann ?

Gruss

Holger

[DeddyH]

Dann fällt mir nur noch ein, dass für die Elemente einer betreffenden Groupbox Tabstop auf false steht, da zeigt sich dann auch das geschilderte Verhalten.

[HolgerCW]

Die Groupbox hatte zwar TabStop = FALSE aber auch ein setzen auf TRUE hat nichts bewirkt.

Weiß echt nciht wodran das liegen könnte ...

[DeddyH]

Nicht die GroupBox an sich, sondern die enthaltenen Komponenten waren gemeint. Wenn es das auch nicht ist, gehen mir die Ideen aus.

[HolgerCW]

Die enthaltenen Komponenten stehen alle auf TabStop = TRUE.

[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

[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;