Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

подсказка в DBGrid

Сергей © (2010-09-23 10:50:00)
Удалено модератором
Примечание: Спам

Сергей (2010-09-23 15:55:00) [1]
Удалено модератором

Сергей (2010-09-23 15:50:00) [2]
Удалено модератором

Кофеек (2010-09-23 15:35:00) [3]
Удалено модератором

Ega23 (2010-09-23 15:28:00) [4]

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

DBGid.DataSource.DataSet.Last;

Сергей (2010-09-23 15:26:00) [5]
Удалено модератором

12 (2010-09-23 12:39:00) [6]
не совсем понятно что надо
+ нет у меня 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 11:40:00) [7]
Удалено модератором

12 (2010-09-23 11:34:00) [8]
дежавю..

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »