| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как переставить указатель на нужную запить DBGrid a [D4, D5, D6, Paradox]
axx © (2003-10-20 12:49:00)
Как програмно переставить указатель на нужную запить DBGrid"a.
Хочу сделать чтобы указатель за DBGrida перемещался на элемент под мышой.
Спасибо.
axx (2003-10-20 14:00:00) [1]
Это нужно только для нередактируемых таблиц
DenK_vrtz (2003-10-20 13:58:00) [2]
axx © (20.10.03 13:50) [6], это конечно все хорошо и КРУТО, только вот последствия данного действа могут иметь печальный итог. К примеру, случайное удаление не тех записей!
axx (2003-10-20 13:50:00) [3]
Мне нужно чтобы указатель бегал по гриду вслед за мышкой.
DenK_vrtz (2003-10-20 13:48:00) [4]
>Как узнать количество запесей наверху грида которые не вошли в него ?
извините, а зачем это нужно? ведь это изврат чистой воды!
axx (2003-10-20 13:35:00) [5]
Приведенный ниже кусок работает но если нет скрола (т.е. все записи вошли в грид). А как быть со скролом. Непонимаю как Locate мне может помочь :-(((
Ткните пальцом плз как эти грабли обойти.
procedure TMDIChild.DBGridEh1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var
ScrPt,GrdPt:TPoint;
Cell:TGridCoord;
begin
if not (Sender is TDBGrideh) then exit;
ScrPt:=Mouse.CursorPos;
GrdPt:=(Sender as TDBGrideh).ScreenToClient(ScrPt);
Cell:=(Sender as TDBGrideh).MouseCoord(GrdPt.X,GrdPt.Y);
if Cell.Y in [0..(Sender as TDBGrideh).DataSource.DataSet.RecordCount-1] then begin
(Sender as TDBGrideh).DataSource.DataSet.RecNo:=Cell.Y+1;
end;
aVast (2003-10-20 13:25:00) [6]
Query.Locate("FieldName", "SearchString",[loCaseInsensitive,loPartialKey])
axx (2003-10-20 13:14:00) [7]
А как быть со скролом. Как узнать количество запесей наверху грида которые не вошли в него ?
Malkolinge (2003-10-20 13:05:00) [8]
Ищи в dataSet е.
| |
