Ненашел нужного метода

← →
Анатолий (2003-10-13 08:59) [0]

Привет всем !
Написал приложение с использованием DBGrid, DBTable и периодически мне необхиодимо делать Refresh данных, все данные в окне со скроллом вертикальным и как только я обновляю (DBTable1.Refresh) курсор в гриде уходит на первую строку ! обновление идет раз в секунду, вобщем до некоторых записей добраться очень сложно. Хочу перед Refresheм запонимать позицию курсора в DBGrid, а после рефреша устанавливать курсор туда где он и был, после долгих исканий в Дельфи ненашел функции которая вернула бы мне номер текущей строки ! Помогите мне советом и извините если вопрос глупый...книжек у меня нету, только стандартных хелп и вы )

← →
Reindeer Moss Eater © (2003-10-13 09:03) [1]

var bm:TBookMark;
bm:=DBTable1.GetBookMark;
.....
DBTable1.GotoBookmark(bm);
DBTable1.FreeBookmark(bm)

← →
DenK_vrtz © (2003-10-13 09:03) [2]

1.Перед Refresh"ем запомнить id строки (если таковой есть), а после Refresh сделать Locate
2.Использовать Bookmark

← →
Леван Варшанидзе (2003-10-13 09:15) [3]

po moemu, Variant bookmark luchse, no mojno dobavit disableconrols i enablecontrols, chtobi ne melkalo:

dbgrid.datasource.dataset.disablecontrols();
bm:=dbgrid.datasource.dataset.getbookmark;

dbgrid.datasource.dataset.refresh();
i obratno:

dbgrid.datasource.dataset.gotobookmark(bm);
dbgrid.datasource.dataset.enablecontrols();

← →
Silver Alex © (2003-10-13 09:16) [4]

var bm:TBookMark;

bm:=DBTable1.GetBookMark;
try
dbTable1.DisableControls;
...
DBTable1.GotoBookmark(bm);
finally
DBTable1.FreeBookmark(bm);
dbTable.EnableControls;
end;

← →
Sergey13 © (2003-10-13 09:19) [5]

2Анатолий (13.10.03 08:59)
>обновление идет раз в секунду, вобщем до некоторых записей добраться очень сложно.
8-)
Может чего в консерватории подправить.

← →
Анатолий (2003-10-13 09:20) [6]

спасибо, все отлично работает !
есть еще вопрос по теме ! когда я меняю позицию курсора колесом мыши, то при рефреше (период 1 сек) курсор возвращается на то место где был до этого, если тоже самое делаю с клавиатуры или нажатием левой кнопы мыши то все в порядке, как сделать чтобы при использовании колеса курсор тоже фиксировался, а не возвращался на исходную позицию ?

← →
Леван Варшанидзе (2003-10-13 09:49) [7]

Navernoe, nado sootvetstvenno obrabotat onmousemove pered refresh-om ?!

Используй RXDbGrid из RXLib

Анатолий (13.10.03 09:20) [6]
> как сделать чтобы при использовании колеса курсор тоже фиксировался ...
просто двигай курсор в связаном датасете по этому событию, а не исключитльно в гриде как в стандартном
так примерно

TMyDBGrid = class(TDBGrid)
procedure WMMouseWheel(var Msg: TWMMouseWheel); message WM_MOUSEWHEEL;
end;

procedure TMyDBGrid.WMMouseWheel(var Msg: TWMMouseWheel);
begin
if DataSource.DataSet.Active then begin
if Msg.WheelDelta > 10 then DataSource.DataSet.Prior;
if Msg.WheelDelta < -10 then DataSource.DataSet.Next;
end;
end;

пользоватся в этом случае естественно придется TMyDBGrid гридом.

← →
NikB (2003-10-14 00:59) [10]

Eto diskusia otvetila na vopros, no v nem v neiavnom vide predpologaetsa, chto imenno v etom dbTable1 delaiutsa izmenenia. Mne kajetsa, chto esli odin komponent TTable priviazan s DBGrid, a izmenenia delaiutsa v drugoi komponent tTable (v toi je tablice(file) na harddisk) Refresh ne rabotaet (nado zamenit s close/open. Tak li eto ili ia oshibsia?

Ненашел нужного метода Найти похожие ветки