TForm1.StringGrid1Click(Sender: TObject);
+
TStringGrid::procedure MouseToCell(X, Y: Integer; var ACol, ARow: Longint);
+
TStringGrid::procedure MouseToCell(X, Y: Integer; var ACol, ARow: Longint);
解决方案 »
- 断网,散分!(3)
- onclick写一事件
- sqlserver或access如何实现级联操作?
- 有没有人用过MAPX第三方控件啊?那里有相关资料啊?
- 关于idHTTP.Response.ContentLength问题。严重
- CSDN商城支付配送开始多样化?什么意思是共享软件销售的支付方式吗?
- 请问怎样在table中过滤字段值?
- 那里有李维的书下载?
- 在Delphi中调试程序时你喜欢用什么调试工具?那里用常用调试工具的详细说明?调试多层数据库系统时你用什么工具?
- 请各位大虾帮帮忙
- 高手求急:怎么定义一个超过255的字符串,我试着用AnsiString 不可以,谢谢
- 请教DELPHI中的UNION类型声明?
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var col_row:TGridCoord ;
begin
if Button=mbLeft then
begin
col_row:=grd_right.MouseCoord(X, Y);
if (col_row.X > 0) and (col_row.Y > 0) then
begin
if grd_right.cells[col_row.X,col_row.Y]='' then
grd_right.cells[col_row.X,col_row.Y] :='Right'
else
grd_right.cells[col_row.X,col_row.Y] :='' ;
end;
end;end;//我的点击dbgrid区域的代码,给你参考
谢谢大侠兄们!
有你们的帮忙好像什么都能办到!TKS!