Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

Как переставить указатель на нужную запить DBGrid a   Найти похожие ветки 

 
axx ©   (2003-10-20 12:49) [0]

Как програмно переставить указатель на нужную запить DBGrid"a.
Хочу сделать чтобы указатель за DBGrida перемещался на элемент под мышой.

Спасибо.


 
Malkolinge ©   (2003-10-20 13:05) [1]

Ищи в dataSet е.


 
axx ©   (2003-10-20 13:14) [2]

А как быть со скролом. Как узнать количество запесей наверху грида которые не вошли в него ?


 
aVast ©   (2003-10-20 13:25) [3]

Query.Locate("FieldName", "SearchString",[loCaseInsensitive,loPartialKey])


 
axx ©   (2003-10-20 13:35) [4]

Приведенный ниже кусок работает но если нет скрола (т.е. все записи вошли в грид). А как быть со скролом. Непонимаю как 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;


 
DenK_vrtz ©   (2003-10-20 13:48) [5]

>Как узнать количество запесей наверху грида которые не вошли в него ?

извините, а зачем это нужно? ведь это изврат чистой воды!


 
axx ©   (2003-10-20 13:50) [6]

Мне нужно чтобы указатель бегал по гриду вслед за мышкой.


 
DenK_vrtz ©   (2003-10-20 13:58) [7]

axx © (20.10.03 13:50) [6], это конечно все хорошо и КРУТО, только вот последствия данного действа могут иметь печальный итог. К примеру, случайное удаление не тех записей!


 
axx ©   (2003-10-20 14:00) [8]

Это нужно только для нередактируемых таблиц



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

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.034 c
3-40938
@lex
2003-10-17 11:06
2003.11.13
Кто-нибудь пробовал запустить скрипт describe в Delphi


14-42017
R
2003-10-17 02:43
2003.11.13
StringGrid с цветом


1-41563
killer
2003-10-27 13:18
2003.11.13
Второй запуск программы


1-41705
mc_duck
2003-11-03 20:06
2003.11.13
Окно с секретом


14-41990
Gfa
2003-10-07 19:31
2003.11.13
In The Woods