TabSet: mit rechter Maustaste Tab markieren/öffnen

[kurtm1]

Zitat von 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

Das funzt, thx