| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
stringgrid
Vitalik__ © (2006-03-15 18:58:00)Неподскажите как мне отключить колесо мышки в моём приложении? В частности я не хочу, чтобы stringgrid реагировал на колесо.
Leonid Troyanovsky (2006-03-17 10:17:00) [1]
> Vitalik__ (16.03.06 18:04) [1]
> никто не знает? проблема...
Какая проблема?
Для отключения достаточно назначить обработчик OnMouseWheel:
procedure TForm1.MouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
Handled := True;
end;
А.. stringgrid. В частности,
type
THackGrid= class(TStringGrid);
procedure TForm1.FormCreate(Sender: TObject);
begin
THackGrid(StringGrid1).OnMouseWheel := MouseWheel;
end;
Хотя, конечно, писать type THackGrid= class(TStringGrid)
не совсем кошерно. Поэтому, некоторые пишут так
type
THackGrid = class(TStringGrid)
public
property OnMouseWheel;
end;
что, собс-но, тоже не совсем кошерно, бо для таких вещей
положено порождать честных наследников.
--
Regards, LVT.
Vitalik__ (2006-03-16 18:04:00) [2]никто не знает? проблема...
| |
