PageControl: PopUp-Menu

[Alexander]

Hallo Leute,
ich habe mal wieder ne kleine Frage.
Und zwar habe ich einem Pagecontrol ein PopUp-Menü zugewiesen.
Wenn es aufklappt und auf ein Item geklippt wird, möchte ich das sich der TabIndex dementprechend ändert. Es soll also der TabIndex auf das Tabsheet gesetzt werden, auf das zuvor geklickt wurde.
Doch irgendwie bekomme ihc das nicht hin.
Hier mal mein Versuch:

Delphi-Quellcode:

 ClientPt := ScreenToClient(PopupMenu1.PopupPoint);
 Pagecontrol1.TabIndex := Pagecontrol1.IndexOfTabAt(ClientPt.X, ClientPt.Y);

So macht wird kein Tabsheet markiert...

[Alexander]

Hat da wirklich keine ne Idee?

[Marco Haffner]

Gibt es bei Delphi 6 schon OnContextPopup?

Delphi-Quellcode:

procedure TForm1.PageControl1ContextPopup(Sender: TObject;
  MousePos: TPoint; var Handled: Boolean);
begin
  Pagecontrol1.TabIndex := Pagecontrol1.IndexOfTabAt(MousePos.X, MousePos.Y);
end;

[Alexander]

mhm muss ich mal kucken, das hört ishc ja iegentlich nicht schelcht an. Danke schon mal!
Dennoch ist das nicht so wirklich das was ich gesuccht habe.
Aber ien Anfang :mrgreen:

Ich wollte eigentlich erst, wenn man auf ein Item des PopUp-Menüs geklickt hat, das sihc dann der Index ändert.
Leider habe ich diese Woche wieder mal so wenig Zeit. Am Donnerstag kucke ich mir das dann mal genauer an.

Aber wenn irgendwer noch ne Idee hat, immer posten ;-).
Danke nochmal.