Скачать: CL | DM;

подсказка в 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.006 c