K
kaithink
Unregistered / Unconfirmed
GUEST, unregistred user!
请教：<br>如何可在DBGRID或其它GRID里，当鼠标移动到哪个单元格上时HINT显示或在别处的EDIT里显示鼠标指针下的单元格内容。注意：该单元格并未获得焦点<br><br>同类的问题：如何可做到让DBGRID的单元格焦点随鼠标指针的移动而移动，也就是光标跟随鼠标移动。<br>
H
hnlygtjj
Unregistered / Unconfirmed
GUEST, unregistred user!
在onMouseMove事件里写<br>以下是在stringgrid中测试通过的例子。<br>procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;<br> X, Y: Integer);<br>var<br> CellRect:TRect;<br> i,j:integer;<br>begin<br> for i:=0 to Stringgrid1.ColCount-1 do<br> begin<br> for j:=0 to stringgrid1.RowCount-1 do<br> begin<br> CellRect:= stringgrid1.CellRect(j,i);<br> if (x>CellRect.Left)and(x<CellRect.Right)and<br> (y>CellRect.Top)and(y<CellRect.Bottom) then<br> begin<br> edit1.Text:=stringgrid1.Cells[j,i];<br> exit;<br> end;<br> end;<br> end;<br>end;
B
bundur
Unregistered / Unconfirmed
GUEST, unregistred user!
这个问题是这样的：<br>1、TStringGrid 可以<br>2、TDBGrid 在鼠标移动时想取得单元格的内容，就必需使焦点随鼠标指针的移动<br><br>实现方法：<br>基本上是在<br>procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;<br>事件里，用<br>StringGrid1.MouseCoord(X, Y)<br>的方法来解决。<br>如需例子，请留个EMAIL联系
X
x900
Unregistered / Unconfirmed
GUEST, unregistred user!
从TDBGrid继承一个新的控件,比如叫TDBGrid1;然后重载MouseMove过程;代码如下<br><br>
<br><br>这个控件已经得到验证,没有问题,可以达到"单元格焦点随鼠标指针的移动而移动"的目的
代码:
unit DBGrid1;<br><br>interface<br><br>uses<br> SysUtils, Classes, Controls, Grids, DBGrids;<br><br>type<br> TDBGrid1 = class(TDBGrid)<br> private<br> { Private declarations }<br> protected<br> { Protected declarations }<br> procedure MouseMove(Shift: TShiftState; X, Y: Integer); override; <br> public<br> { Public declarations }<br> published<br> { Published declarations }<br> end;<br><br>procedure Register;<br><br>implementation<br><br>procedure Register;<br>begin<br> RegisterComponents('Samples', [TDBGrid1]);<br>end;<br><br>{ TDBGrid1 }<br><br>procedure TDBGrid1.MouseMove(Shift: TShiftState; X, Y: Integer);<br>var<br> CellHit: TGridCoord;<br>begin<br> inherited MouseMove(Shift,X,Y);<br> if FGridState=gsNormal then<br> begin<br> CellHit := MouseCoord(X, Y);<br> if (CellHit.X >= FixedCols) and (CellHit.Y >= FixedRows) then<br> begin<br> if dgEditing in Options then<br> begin<br> if (CellHit.X = Col) and (CellHit.Y = Row) then<br> ShowEditor<br> else<br> begin<br> Col := CellHit.X;<br> Row := CellHit.Y;<br> ShowEditor;<br> end;<br> Click;<br> end<br> else<br> begin<br> Col := CellHit.X;<br> Row := CellHit.Y;<br> end;<br> end<br> end;<br>end;<br><br>end.
K
kaithink
Unregistered / Unconfirmed
GUEST, unregistred user!
好，等在下周一试过之后即行结贴<br>在此多谢各位了
K
kaithink
Unregistered / Unconfirmed
GUEST, unregistred user!
to x900<br>试了阁下的方法<br>现象是：当鼠标移动，蓝色焦点亦移动，但DBGRID的数据指针还在原记录行，而且蓝色<br>焦点进入哪个单元格就会用数据指针所指记录的对应字段值替换蓝色焦点所在行的<br>所在单元格的值，离开时又恢复原状。<br><br>
K
kaithink
Unregistered / Unconfirmed
GUEST, unregistred user!
to hnlygtjj<br>试了阁下的方法，是正确的，在结贴之前还请阁下继续关注此问题。<br>即是否存在比循环更具效率的途径？
K
kaithink
Unregistered / Unconfirmed
GUEST, unregistred user!
改了一下，用FocusCell或MoveColRow方法可以做到正确移动蓝色焦点（数据指针仍不移动，不过这样也可以了，点击后再移动数据指针可能更合适）<br><br>问题是：此时鼠标点击后无任何效果，不象通常情况那样使所点击记录成为当前记录并使所点击单元格成为当前单元格。<br><br>请有兴趣的富翁关注!<br><br>代码更改列示：<br>.......<br> if FGridState=gsNormal then<br> begin<br> CellHit := MouseCoord(X, Y);<br> if (CellHit.X >= FixedCols) and (CellHit.Y >= FixedRows) then<br> begin<br> if dgEditing in Options then<br> begin<br> if (CellHit.X = Col) and (CellHit.Y = Row) then<br> begin<br> FocusCell(CellHit.x,CellHit.Y,False);<br>// MoveColRow(CellHit.x,CellHit.Y,False,true);<br>// ShowEditor;<br> end else<br> begin<br> FocusCell(CellHit.x,CellHit.Y,False);<br>// MoveColRow(CellHit.x,CellHit.Y,False,true);<br>// Col := CellHit.X;<br>// Row := CellHit.Y;<br>// ShowEditor;<br> end;<br>// Click;<br> end<br> else<br> begin<br> FocusCell(CellHit.x,CellHit.Y,False);<br>// MoveColRow(CellHit.x,CellHit.Y,False,true);<br>// Col := CellHit.X;<br>// Row := CellHit.Y;<br> end;<br> end<br> end;<br>
X
x900
Unregistered / Unconfirmed
GUEST, unregistred user!
To:kaithink 下面的代码不存在你说的问题了<br><br>
代码:
procedure TDBGrid1.MouseMove(Shift: TShiftState; X, Y: Integer);<br>var<br> CellHit: TGridCoord;<br>begin<br> inherited MouseMove(Shift,X,Y);<br> if FGridState=gsNormal then<br> begin<br> CellHit := MouseCoord(X, Y);<br> if DataLink.Active then<br> begin<br> if (CellHit.X >= FixedCols) and (CellHit.Y >= FixedRows) then<br> begin<br> if dgEditing in Options then<br> begin<br> if (CellHit.X = Col) and (CellHit.Y = Row) then<br> ShowEditor<br> else<br> begin<br> Col := CellHit.X;<br> Datalink.DataSet.MoveBy(CellHit.Y - Row);<br> Row := CellHit.Y;<br> HighlightCell(Col,Row,'',[]);<br> end;<br> Click;<br> end<br> else<br> begin<br> Col := CellHit.X;<br> Datalink.DataSet.MoveBy(CellHit.Y - Row);<br> Row := CellHit.Y;<br> end;<br> end;<br> end;<br> end;<br>end;
C
Carson_zzd
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;<br> Shift: TShiftState);<br>begin<br>if Key = 13 then with TDbgrid(ActiveControl) do<br> begin<br> if Selectedindex<(FieldCount-1)then<br> Selectedindex:=Selectedindex+1<br> else<br> begin<br> dbgrid1.DataSource.DataSet.Next;<br> if dbgrid1.DataSource.DataSet.Eof then<br> dbgrid1.DataSource.DataSet.First ;<br><br> Selectedindex:=0;<br> end ;<br> end;<br>end;<br><br>这个完全可以满足你的要求，收分！
X
x900
Unregistered / Unconfirmed
GUEST, unregistred user!
To:Carson_zzd<br>老大,你处理的是键盘事件吧,好像与鼠标无关啊
]
]
K
kaithink
Unregistered / Unconfirmed
GUEST, unregistred user!
To ： x900<br>果然<br>阁下对VCL很熟悉啊<br><br>