Question

delphi 中DBgrid 的问题

各位大哥帮忙啊 我想在dbgrid中 鼠标光标放到那行 光标所在的整行变色 并且能行内数据可以编辑

Answer 1

这个就得在鼠标的move事件中写代码了 只要光标定位了 整行变色数据可以编辑就简单了 修改相应的属性即可

Answer 2

unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, OracleData, Oracle, Grids, DBGrids;type
TMyDBGrid = class(TDBGrid);
TForm1 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
OracleSession1: TOracleSession;
OracleDataSet1: TOracleDataSet;
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure DBGrid1ColEnter(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with TMyDBGrid(Sender) do
begin
if DataLink.ActiveRecord=Row-1 then
begin
Canvas.Font.Color:=clWhite;
Canvas.Brush.Color:=clBlue;
end
else
begin
Canvas.Brush.Color:=Color;
Canvas.Font.Color:=Font.Color;
end;
DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;end;procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
// DBGrid1.Options:= DBGrid1.Options - [dgRowSelect];
end;end.