| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Не работает скроллинг в ;DBGrid. Как это устранить? [D5, Win2k]
IlyaGer © (2003-03-04 18:46:00)Здравствуйте!
Не работает скроллинг в DBGrid. Как это устранить?
Бедный Йорик (2003-03-04 21:34:00) [1]а в ADOQuery ExecuteOptions asyncExecute=True?...только из за этого и глючит...убедись убери эту опцию и все заработает
sniknik (2003-03-04 19:06:00) [2]http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1046422497&n=1
хотел чтото еще написать, но нет слов.. :о((, чего еще надо? все расписано.
theodor_iv (2003-03-04 18:57:00) [3]Если речь идет о мышином колесике, то нужно следующее:
type
TDBGrid1 = class(TDBGrid)
private
{ Private declarations }
protected
{ Protected declarations }
function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override;
function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; override;
public
{ Public declarations }
published
{ Published declarations }
end;
function TDBGrid1.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
Result := true; // inherited не вызываем принципиально -- в нашем случае он только мешает
DataSource.DataSet.Next;
end;
function TDBGrid1.DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
Result := true;
DataSource.DataSet.Prior;
end;
IlyaGer (2003-03-04 18:55:00) [4]Да какой код, обычный DBGrid связян с ADOQuery. Скроллинг с помощью мыши не дает результата, остается выбранной в ADOQuery запись на которой и находились. Кстати в RxDBGrid такого глюка нет, но это не интересно, надо убрать его в DBGrid.
Mike_Goblin (2003-03-04 18:50:00) [5]Код в студию
| |
