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

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

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

Ненашел нужного метода [D5, dBase, FoxPro]

Анатолий © (2003-10-13 08:59:00)

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

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

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?

sniknik (2003-10-13 10:56:00) [2]

Анатолий (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 гридом.

dim- (2003-10-13 10:03:00) [3]

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

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

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

Анатолий (2003-10-13 09:20:00) [5]

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

Sergey13 (2003-10-13 09:19:00) [6]

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

Silver Alex (2003-10-13 09:16:00) [7]

var bm:TBookMark;

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

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

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();

Reindeer Moss Eater (2003-10-13 09:03:00) [9]

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

DenK_vrtz (2003-10-13 09:03:00) [10]

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

Наверх

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