Tabsheet - Umschalten mit Pfeiltasten

[TPeterT]

Hallo!
Wie kann man auf einfache Weise unterbinden, dass man mit den Pfeiltasten zwischen Tabsheets umschalten kann?
Danke und liebe Grüsse
Peter

[Sharky]

Hai Peter,

du kannst die gedrückten Tasten im OnKeyDown der Form abfangen (KeyPreview = True) und dann prüfen ob das TabControl den Focus hat.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ActiveControl = TabControl1) then
  begin
    if (Key in [VK_Left,VK_Right]) then
    begin
      Key := 0;
    end;
  end;
end;