Can I make a popup menu appear with a left click ?

You have to use OnMouseDown and check for mbLeft (Left mouse button)

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
    TPanel(Sender).PopupMenu.Popup(TPanel(Sender).ClientOrigin.X+X, TPanel(Sender).ClientOrigin.Y+Y);
end;

Just to be safe

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if (Button = mbLeft) and (Sender is TPanel) then
    TPanel(Sender).PopupMenu.Popup(TPanel(Sender).ClientOrigin.X+X, TPanel(Sender).ClientOrigin.Y+Y);
end;

ewangoya, reinventing the wheel this evening? :)

Of course Sender is Tpanel here. It's a Tpanel event!
I've typecasted it just to skip easy its name ;)

Hi,

Just set the TrackButton property of PopupMenu to *tbLeftButton*

bye

I can just as well do this
Panel1MouseDown(nil);

I tried the first answer first because I thought I cuold use an on-click event, I didn't know the call to make the menu pop up. It worked perfectly.I appreciate everyone elses answer and learn from them also. The last two were especially interesting.

Thank you