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
