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. :roll: 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 :zwinker:

[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 :hello: