Ejer af Popupmenu

Prøv dette... Jeg har to TPanels, en TPopupMenu og en procedure "Popup(Sender: TObject)":

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    PopupMenu1: TPopupMenu;
    Test1: TMenuItem;
    procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel2MouseUP(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Popup(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
  Popup(TWinControl(Sender));
end;

procedure TForm1.Panel2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
  Popup(TWinControl(Sender));
end;


procedure TForm1.Popup(Sender: TObject);
var
  P : TPoint;
begin
  GetCursorPos(P);
  with P do
  PopupMenu1.Popup(X,Y);
  with TWincontrol(Sender) do
  ShowMessage(Name);
end;

ZeroHero

PS: Min TPopupMenu har en TMenuItem (bare lige så du kan se når popupmenu bliver "udløst")...

tak for koden. Men mit problem er at jeg ikke kan definere onMouseUp-events for panelet eftersom jeg creater panelet i runtime :-( Så hvordan kan jeg så gøre det ?

Men det er meget let...

bare skriv koden jeg har vist og derefter skriv følgende i din TForm's OnCreatre event:

Panel1.OnMouseUp := Panel1MouseUp;
Panel2.OnMouseUp := Panel2MouseUp;

og så skulle den være hjemme...

Jeg har ændret lidt på koden, og den ser nu sådan her ud:

procedure TMDIChild.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (Button = mbRight) and (TWinControl = TPanel)then
  Popup(TWinControl(Sender));
end;

Problemet er bare at den heller ikke passere "if (...) then" selvom TWinControl, altså der hvorfra man åbner popuppen, ER et panel. Hvorfor ?

Prøv dette i stedet...

procedure TMDIChild.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
if (Button = mbRight) and (TWinControl(Sender).ClassType = TPanel) then
  Popup(TWinControl(Sender));
end;

Glem det... Jeg tænkte mig ikke lige om.

nå, ok. Tak.