TabSet: mit rechter Maustaste Tab markieren/öffnen

[kurtm1]

So ich habe hier ein TabSet, das unter anderem ein Popup Menü besitzt. Ich möchte jetzt, dass wenn ich mit der rechten Maustaste draufklicke, nicht nur das Popup Menü aufgeht, sondern zuerst noch der Focus auf diese Tab gesetzt wird.

wenn ich diesen Code verwende:
        TabSet1.TabIndex:=TabSet1.ItemAtPos(Mouse.CursorPos); wird nur das aktive Tab deaktiviert, es verliert den Fokus, aber es wird kein neuer gesetzt...

[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

[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