procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if button = mbRight then with (Sender AS TControl) do with ClientToScreen(Point(X,Y)) do begin PopupMenu1.PopupComponent := TComponent(Sender); PopupMenu1.Popup(X,Y); end; end;
收藏
推荐
评论加载中…
