PopupMenu NUR bei rechtsklick auf TabSheet.Titel ausklappen

[toms]

Sheet[anzSQL].OnMouseUp := ShowPopupMenu(PageControlSQL,mbRight,[],Mouse.CursorPos.X,Mouse.CursorPos.Y); Nein, du musst das OnPageControlMouseUp dem PageControl zuweisen.
und zwar so:

Delphi-Quellcode:

private
 procedure MyPageControlMouseUp(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);

{...}

procedure TForm1.MyPageControlMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Code...
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MYPageControl : TPageControl;
begin
  MYPageControl := TPageControl.Create(Self);
  MYPageControl.OnMouseUp := PageControl1MouseUp;
  //...
end;