摘要：
procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);var pt: TPoint;begin Windows.GetCursorPos(pt); FMenu.Popup(pt.X, pt.Y);endMouse.CursorPos.X, Mouse.CursorPos.Y 阅读全文
posted @ 2010-12-03 17:11 colincode 阅读(163) 评论(0) 推荐(0) 编辑