Скачать: CL | DM;

Cкрол мыши   Найти похожие ветки 

← →
KyRo   (2006-04-17 11:02) [0]

подскажите как сделать что бы в дбгриде работал скрол мыши ?

---

← →
Ega23 ©   (2006-04-17 11:13) [1]

Какой набор данных используешь?

---

← →
ANB ©   (2006-04-17 11:18) [2]

Взять эхлибовский грид.

---

← →
KyRo   (2006-04-17 11:36) [3]

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

Что имееш ввиду ?


> Взять эхлибовский грид


Уже поздно программа почти готова и менять гриды не хочу !

---

← →
Gydvin ©   (2006-04-17 11:55) [4]

А придеться )))
Это либо наружный код дописывать к каждому либо ипользовать потомка (а значит менять), а второе значительно проще

---

← →
KyRo   (2006-04-17 11:58) [5]

А кто нить может скинуть этот компонент? на мыло или кинуть на него ссылочку
OlegMail@bigmir.net
Заранее благодарен.

---

← →
pavel_guzhanov ©   (2006-04-17 13:50) [6]

Положи на форму ApplicationEvents и создай такую процедуру:
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
 var Handled: Boolean);
var
 I: SmallInt;
begin
if Msg.message = WM_MOUSEWHEEL then
 begin
   Msg.message := WM_KEYDOWN;
   Msg.lParam := 0;
   I := HiWord(Msg.wParam);
   if I > 0 then
     Msg.wParam := VK_UP
   else
     Msg.wParam := VK_DOWN;
   Handled := False;
 end;
end;

Взял не помню из какого фака, у меня работает...

---

← →
KyRo   (2006-04-17 15:14) [7]

Спасибо и у меня работает.

---

← →
ян   (2006-04-19 19:36) [8]

2pavel_guzhanov

Большое спасибо!классно работает!

---

← →
Германн ©   (2006-04-20 03:15) [9]

Нет и не было у меня претензий (особых) к продукции Борланд, но уж эта "недоделка" мне просто непонятна!

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c