左键点击一个图片时，如何弹出一个菜单？

Question

不是onclick
是bitbutton的click
在bitbutton放一个图片就可以了
要把图片张大些呀，不然可是按钮大图片小呀，哈哈

Answer 1

Image的OnMouseDown事件里,例子如下:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin  X:=Mouse.CursorPos.X;
  Y:=Mouse.CursorPos.Y;
 if Button=mbLeft then
  PopupMEnu1.Popup(x,y);end;

Answer 2

var
  Form1: TForm1;
  x:integer;
  y:integer;
implementation{$R *.DFM}procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
        X:=Mouse.CursorPos.X;
       Y:=Mouse.CursorPos.Y;
      if Button=mbLeft then
      PopupMEnu1.Popup(x,y);
end;

Answer 3

处理Image的OnMouseDown事件就可以了，如下：procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
var
  point:tpoint;
begin
  getcursorpos(point);
  PopupMenu1.popup(point.x,point.y);
end;---------------------------------------------------------------
风过西窗客渡舟船无觅处
年年一川新草遥看却似旧

Answer 4

把问题复杂化了,拖出个PopupMenu控件,设计期间设置Image的PopMenu属性!就这么简单,如果该控件无PopMenu属性,再按上面的方法自己加!或者继承重新编写个!