Component shouldn't lose focus when tab is pressed

[Yakumo500]

Hi,
currently I'm writing an editor component and I have a problem with the tab key.
It's recognized by KeyDown but my control will lose focus. How could I change that?

[typo]

Your component is a descendant of what?

SetFocus should be sufficient.

[Yakumo500]

It's a descendant of TCustomControl.

[typo]

SetFocus can restore the focus to your control.

[Yakumo500]

But if I write SetFocus in Keydown or Keypress or Keyup nothing happens. I think the focus change happens after Keydown and Keypress and Keyup are executed.

[typo]

Have you tried to set Key := #0 on the KeyPress event or Key := 0 on the KeyDown event?

Code: [Select]

procedure TYourControl.ComponentKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  // uses Windows unit
  if Key = VK_TAB then
    Key := 0;
end;


[Yakumo500]

Oh
it's so easy and I didn't get it. Thank you.