안녕하세요
popup memu가 popup 되지 않아서 질문을 올립니다.
아래와같이 했는데, 안되는군요.
procedure TForm1.Panel1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
begin
PopupMenu1.AutoPopup := False;
PopupMenu1.Popup(X,Y);
end;
end;
위와 같이 했는데 전혀 반응이 없습니다.
|