TabSet: mit rechter Maustaste Tab markieren/öffnen

[marabu]

Bei mir geht es so:

Delphi-Quellcode:

procedure TDemoForm.PopupMenuPopup(Sender: TObject);
begin
  with TabSet do
    TabIndex := ItemAtPos(ScreenToClient(Mouse.CursorPos));
end;

Grüße vom marabu