if (col=0) and (row=0) then
begin
col:=dbgrid1.Col ;
row:=dbgrid1.row ;
currow:= dbgrid1.row ;
curcol:= dbgrid1.Col ;
end
else begin
//第二次按下鼠标,取得当前位置
currow:= dbgrid1.row ;
curcol:= dbgrid1.Col ;
// i:=clientdataset1.GetBook ;
end;
if (currow<>row) or (curcol<>col) then
begin
// showmessage('changed'); //这里进行处理
row:=dbgrid1.row;
col:=dbgrid1.Col;
end;
这是我 写的鼠标离开cell就能发生的,但是我不知道如何能使鼠标前一位置的行数据更新
指教
begin
col:=dbgrid1.Col ;
row:=dbgrid1.row ;
currow:= dbgrid1.row ;
curcol:= dbgrid1.Col ;
end
else begin
//第二次按下鼠标,取得当前位置
currow:= dbgrid1.row ;
curcol:= dbgrid1.Col ;
// i:=clientdataset1.GetBook ;
end;
if (currow<>row) or (curcol<>col) then
begin
// showmessage('changed'); //这里进行处理
row:=dbgrid1.row;
col:=dbgrid1.Col;
end;
这是我 写的鼠标离开cell就能发生的,但是我不知道如何能使鼠标前一位置的行数据更新
指教
ApplyRange;这个加上就ok了
------------------------------------
心中多少的创伤,不可抵挡的空虚,卑躬屈膝的一生,今天只想冲出那枷锁,就要象狂人,金属者---金属狂人