【搞定】请问如何才可以让dbgrid中的数据行高亮显示随鼠标移动，而非点击后才能实现高

SH_XL_ZHUFO · 发表于 2008-2-3 09:42:14

请问如何才可以让高亮显示随鼠标移动，而非点击后才能实现高亮

lixy · 发表于 2008-2-3 11:26:48

procedure TMainForm.DataGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TTreeListNode; AColumn: TTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean; var AText: string; var AColor: Integer; AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);

begin


if (fp.Y>=arect.Top) and (fp.Y<=arect.Bottom) then
begin
   AColor := $BBBBFF;
   tr:=ARect;
end;

end;

procedure TMainForm.DataGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  fp.X:=x;
  fp.y:=y;

if not ((fp.Y>=tr.Top) and (fp.Y<=tr.Bottom)) then
  begin
DataGrid1.repaint;
  end;
end;

SH_XL_ZHUFO · 发表于 2008-2-3 11:30:51

3ks ,look first

SH_XL_ZHUFO · 发表于 2008-2-3 11:46:59

最初由 lixy 发布
[B]procedure TMainForm.DataGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TTreeListNode; AColumn: TTreeListColumn; ASelected, AFocused..

以下省略...... [/B]

编译时报错
Undeclared identifier "fp"

该如何处理

lixy · 发表于 2008-2-3 13:11:57

在public里面有2个变量
fp:tpoint;
tr:trect;

SH_XL_ZHUFO · 发表于 2008-2-3 13:38:34

谢谢，成功了，非常感谢！！：）
结贴吧；））

		自动登录	找回密码
密码			立即注册