подсказка в DBGrid

← →
Сергей (2010-09-23 10:50) [0]

Удалено модератором
Примечание: Спам

← →
12 © (2010-09-23 11:34) [1]

дежавю..

← →
Сергей (2010-09-23 11:40) [2]

Удалено модератором

← →
12 © (2010-09-23 12:39) [3]

не совсем понятно что надо
+ нет у меня dxХХХ
Если как я понял(совсем не уверен, что правильно),
то может так подойдет?

type
TForm1 = class(TForm)
tbl1: TTable;
ds1: TDataSource;
dbgrd1: TDBGrid;
procedure dbgrd1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
TCG = class(TCustomGrid);
var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.dbgrd1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
GC:TGridCoord;
i:integer;
begin
GC := dbgrd1.MouseCoord(X, Y);
if (GC.X <> -1) and (GC.Y <> -1) then
begin
dbgrd1.Hint := "";
for i:= 0 to dbgrd1.Columns.Count -1 do dbgrd1.Hint := dbgrd1.Hint +" "+ TCG(dbgrd1).GetEditText(i+1, GC.y);
Application.ActivateHint(Mouse.CursorPos);
end;
end;

← →
Сергей (2010-09-23 15:26) [4]

Удалено модератором

← →
Ega23 © (2010-09-23 15:28) [5]

> как по событию автоматически передвигать вертикальный скролл
> грида в конец(вниз), чтобы было видно последнюю запись?
>

DBGid.DataSource.DataSet.Last;

← →
Кофеек (2010-09-23 15:35) [6]

Удалено модератором

← →
Сергей (2010-09-23 15:50) [7]

Удалено модератором

← →
Сергей (2010-09-23 15:55) [8]

Удалено модератором

подсказка в DBGrid Найти похожие ветки