TCustomGrid und TabStop

[Quake]

Hallo,

ich habe in einem Formular eine Class eingefügt die ich von TCustomGrid abgeleitet habe. Ich möchte nun aber das beim drücken der Tab-Taste das nächste Steuerelement in meinem Formular den Focus erhält. Da diese Taste aber eine andere Funktion in TcustomGrid hat funzt dat nich. Ich habe auch schon probiert in der Funktion KeyDown der Tab-Taste diese beizubringen - ist aber gescheitert.

Dazu habe ich schon dieses Probiert :

Code:

case Key of
  VK_TAB :
    begin
      selectnext(self,true,true);
      Key := 0;
    end;
end;

und das auch

Code:

case Key of
  VK_TAB :
    begin
      FindNextControl(self,true,true,true).SetFocus;
      Key := 0;
    end;
end;

Die TabStops sind bei allen Steuerelementen auf True.

ciao

[Quake]

OK,

ich habe es jetzt selbst gefunden. Der Code meinen Komponente sieht jetzt, in gekürzter Form, so aus :

Code:

procedure TMyCustomGrid.KeyDown(var Key: Word; Shift: TShiftState);
  begin
    if Shift = [] then
    begin
      case Key of
        VK_TAB :
          begin
            SendMessage(parent.Handle, WM_NEXTDLGCTL, 0, 0);
            Key := 0;
          end;
      end;
    end;

    inherited KeyDown(Key, Shift);
  end;

Setzt man den 3. Parameter von SendMessage auf 1, erhält das vorherige Steuerelement im Formular den Focus.

ciao