TAdvTabsSet: Tabs mit rechter Maustaste markieren

[kurtm1]

Also ich habe ein TAdvTabset (http://tmssoftware.com/apc.htm) in dem einige Tabs eingefügt wurden. Zusätzlich gibt es für die Tabs ein PopUp Menü.

Jetzt möchte ich, dass ich auch mit der rechten Maustaste eine neue Tab aktivieren kann, und es soll dabei auch das PopUp Menü aufklappen.

Soweit sogut hab ich folgenden Code angewandt:

Delphi-Quellcode:

with MediaTabs do                                    
        TabIndex:=ItemAtPos(ScreenToClient(Mouse.CursorPos));
        if MediaTabs.TabIndex=-1 then
        MediaTabs.TabIndex:=0;

Dieser steht im OnPopup Ereignis des PopUpMenüs. Eigentlich funktioniert ja alles, falls man jedoch neben einem Tab (wo keines mehr ist) mit der rechten Maustaste hinklickt, bekomme ich die Fehlermeldung, dass der Tabindex -1 nicht gesetzt werden kann (Listenindex überschreitet ddas Maximum).

Wie kann ich diese Fehlermeldung abfangen?

thx

[aps]

Delphi-Quellcode:

TabIndex:=ItemAtPos(ScreenToClient(Mouse.CursorPos));
if TabIndex=-1 then
  MediaTabs.TabIndex:=0
else
  MediaTabs.TabIndex:=TabIndex
{end if TabIndex=-1};

[kurtm1]

ja das wäre die logische Lösung, funzt bei mir jedoch nicht, und habe ich vorher auch schon probiert..

[kurtm1]

ok habe nun eine funzende, einfache Lösung gefunden:

Delphi-Quellcode:

procedure TForm1.AdvTabSetMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
        if MediaTabs.ItemAtPos(point(x,y))<>-1 then
        MediaTabs.TabIndex:=MediaTabs.ItemAtPos(point(x,y));
end;

:D

[aps]

Zitat:

Zitat von kurtm1

ja das wäre die logische Lösung, funzt bei mir jedoch nicht, und habe ich vorher auch schon probiert..

Nein. Du hast direkt auf MediaTabs.TabIndex geschrieben, ich auf eine neue Variable.