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

Вниз

DBGrid и скроллер (мышиный)   Найти похожие ветки 

 
Yagovdik   (2004-10-05 15:31) [0]

Подсобите!
Как отучить сетку реагировать на перемещение колеса мыши, которое вызывает перемещение курсора активной ячейки, но не текучей записи набора данных?

При этом, если я поверну скроллер и нажму Ф2, вместо значения под курсором подставляется значение соответствующего поля ТЕКУЩЕЙ ЗАПИСИ и редактируется оно, а не то, которое находится под курсором...
С уважением Александр Яговдик


 
asp ©   (2004-10-05 15:36) [1]

Определить методы DoMouseWheelDown & DoMouseWheelUp


 
Yagovdik   (2004-10-05 15:40) [2]

для этого необходимо создать дочерний класс?
если у Вас есть кусок похожего коду, будьте любезны...


 
asp ©   (2004-10-05 15:44) [3]

Если тяжело создавать дочерний класс, воспользуйся библиотекой RX. Тебе подойдет RxDBGrid.


 
sniknik ©   (2004-10-05 15:44) [4]

> отучить
TMyDBGrid = class(TDBGrid);

TForm1 = class(TForm)
 DBGrid1: TMyDBGrid;
 ...
 procedure MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
end;

procedure TForm1.MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
 Handled:= true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 DBGrid1.OnMouseWheel:= MouseWheel;
end;


 
Yagovdik   (2004-10-05 16:07) [5]

Огромное вам СПАСИБО.
Как это я про RxLib забыл...



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

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

Наверх




Память: 0.47 MB
Время: 0.023 c
1-1097862644
Viper
2004-10-15 21:50
2004.10.31
символы конца строки или файла?!?


8-1091536814
debuger
2004-08-03 16:40
2004.10.31
Масштабирование картинки


14-1097481073
panov
2004-10-11 11:51
2004.10.31
/OffTopic/


1-1098176816
Eyfel
2004-10-19 13:06
2004.10.31
Delphi 8.net + NetFramework Update


1-1098018449
denis24
2004-10-17 17:07
2004.10.31
множественный выбор из одного listbox в другой