TTabControl - angeklickten Reiter erkennen

[idefix2]

Hallo, ich würde gerne zu einem TTabcontrol ein Kontextmenü erstellen. Allerdings sollte die aufgerufenen Routinen irgendwie mitbekommen, welcher Reiter angeklickt worden ist. Über die Property TPopupmenu scheint das nicht zu gehen, weil da bekomme ich die Informationen gar nicht, wohin geklickt worden ist (oder geht das doch irgendwie?).
Aber auch wenn ich mit onmousedown oder dergleichen arbeite und die Mausposition kenne - wie finde ich heraus, zu welchem Reiter eine bestimmte Mausposition gehört?

[Jim Carrey]

Ich mache das so

Delphi-Quellcode:

procedure TForm1TabControl1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
begin
 showmessage(TabControl1.Tabs[TabControl1.IndexOfTabAt(MousePos.X, MousePos.Y)]);
end;

[t.roller]

Delphi-Quellcode:

procedure TForm1.TabControl1Change(Sender: TObject);
var index : integer;
begin
Caption:= TabControl1.Tabs[TabControl1.TabIndex];
end;

[Jim Carrey]

Das mit dem TabIndex würde ich nicht machen.

Denn angenommen man klick RECHTS (Kontextmenu, was er ja möchte) auf einen Tab der nicht der aktive Tab ist, so ist das Ergebnis falsch.

[idefix2]

Danke, genau so etwas habe ich gesucht, und in der endlosen Liste der Properties prompt übersehen. :oops:
Mit tabindex geht es nämlich, genau aus dem Grund, den du genannt hast, nicht.