DbGrid的MouseMove问题(50分)

C

chinawen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-09

• #1

当鼠标移到某一行时，让该行用不同的颜色表示。如何实现？

 

Y

YB_unique

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-09

• #2

http://www2.ccw.com.cn/tips/2k04/041302_05.asp

 

C

chinawen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-09

• #3

不对， 是MOUSEMOVE是才改变颜色， 就象一个链接。 谢谢！

 

P

pisky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-10

• #4

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var gc:TGridCoord;
begin
mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0 );
mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0 );
gc:=dbgrid1.MouseCoord(x,y);
if (gc.y=tstringgrid(dbgrid1).row) then
begin
dbgrid1.Cursor:=crhandpoint;
dbgrid1.Canvas.brush.color:=dbgrid1.Color;
end
else
dbgrid1.Cursor:=crdefault;
end;

 

P

pluszt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-10

• #5

请问mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0 );这句的参数分别是代表什么意
思？还有就是dbgrid1.Cursor:=crhandpoint这句是否是用到C中的句柄啊？

 

C

chinawen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-10

• #6

TOluszt
我也不懂， 不过用PISKY的代码让我基本上达到目的了。
TOISKY
多谢！！！

 

P

pluszt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-11

• #7

TO：CHINAWEN
你真是不求甚解，如果你以后遇到类似问题，你还是不懂啊!
TO：PISKY
请问能给我个答复吗，谢谢!