<!--CodeS-->
procedure TForm1.Button1Click(Sender: TObject);
var p : TPoint;
begin
GetCursorPos(p);
if flag then
begin
PopupMenu1.Popup(p.x, p.y);
flag := False;
end
else
begin
PopupMenu1.DispatchPopup(PopupMenu1.Handle);
flag := True;
end;
end;
<!--CodeE-->
물론 전역으로 하나 생성해서요.. 폼 생성시 True로 해주고..
버튼 클릭부분에서는
<!--CodeS-->
procedure TForm1.Button1Click(Sender: TObject);
var p : TPoint;
begin
GetCursorPos(p);
if flag then
begin
PopupMenu1.Popup(p.x, p.y);
flag := False;
end
else
begin
PopupMenu1.DispatchPopup(PopupMenu1.Handle);
flag := True;
end;
end;
<!--CodeE-->
이런식으로 되겠죠;