PageControl: PopUp-Menu

[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;