stringgrid我在属性里关联了一个popmenu,要求是:当鼠标在cell范围里右键,才出现弹出菜单,在cell范围之外(stringgrid范围中)右键,不出现
解决方案 »
- 关于EXCEL不能正常退出和怎样创建INI里面的SESSION,谢谢
- 请教一个记录有效期的问题?
- 如何更换treeview中的图标呀?
- 如何取得当前所有进程及线程的各自的CPU占用率和所花的CPU时间
- TNMFTP的download路径设置问题?
- 如何在DELPHI中得到SQL-SERVER当前的日期时间
- 跟老板过不去,要在软件上下点手脚,希望大家帮忙,谢谢,
- “XML文档必须有一个最上层元素”错误提示。
- query的动态sql里,单引号有什么规律亚
- MIDAS的两个clientdataset建立主表/明细表关系。为什么会出现“cannot find object”的错误??
- 请问如何提取Real.Alternative解码器的文件?
- [急,在线等]delphi sql2000 图片
var Handled: Boolean);
var
Cell: TGridCoord;
MousePos: TPoint;
begin
if (Msg.hwnd = sg1.Handle) and (Msg.message = WM_RBUTTONUP) then
begin
MousePos.X := Msg.lParam and $0000FFFF;
MousePos.Y := Msg.lParam and $FFFF0000 shr 16;
Cell := sg1.MouseCoord(MousePos.X, MousePos.Y);
if (Cell.X <> -1) and (Cell.Y <> -1) then
begin
GetCursorPos(MousePos);
pm1.Popup(MousePos.X, MousePos.Y);
end;
end;
end;