在程序中申请两个全局变量p_top,p_left,在dbgrid的Ondrawcolumncell事件中添加代码
procedure form1.dbgrid1drawcolumncell(sender:tobject;const rect:trect;datacol:integer;column:tcolumn;state:tgriddrawstate);
begin
p_top:=rect.top+dbgrid1.top;
p_left:=rect.left+dbgrid1.left;
end;
procedure form1.dbgrid1drawcolumncell(sender:tobject;const rect:trect;datacol:integer;column:tcolumn;state:tgriddrawstate);
begin
p_top:=rect.top+dbgrid1.top;
p_left:=rect.left+dbgrid1.left;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货