![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Cкрол мыши [D7, 2000, XP, 2003]
KyRo © (2006-04-17 11:02:00)подскажите как сделать что бы в дбгриде работал скрол мыши ?
Германн (2006-04-20 03:15:00) [1]Нет и не было у меня претензий (особых) к продукции Борланд, но уж эта "недоделка" мне просто непонятна!
ян (2006-04-19 19:36:00) [2]2pavel_guzhanov
Большое спасибо!классно работает!
KyRo (2006-04-17 15:14:00) [3]Спасибо и у меня работает.
pavel_guzhanov (2006-04-17 13:50:00) [4]Положи на форму 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 11:58:00) [5]А кто нить может скинуть этот компонент? на мыло или кинуть на него ссылочку
OlegMail@bigmir.net
Заранее благодарен.
Gydvin (2006-04-17 11:55:00) [6]А придеться )))
Это либо наружный код дописывать к каждому либо ипользовать потомка (а значит менять), а второе значительно проще
KyRo (2006-04-17 11:36:00) [7]
> Какой набор данных используешь?
Что имееш ввиду ?
> Взять эхлибовский грид
Уже поздно программа почти готова и менять гриды не хочу !
ANB (2006-04-17 11:18:00) [8]Взять эхлибовский грид.
Ega23 (2006-04-17 11:13:00) [9]Какой набор данных используешь?