Текущий архив: 2006.04.02;
Скачать: CL | DM;
Вниз
stringgrid Найти похожие ветки
← →
Vitalik__ (2006-03-15 18:58) [0]Неподскажите как мне отключить колесо мышки в моём приложении? В частности я не хочу, чтобы stringgrid реагировал на колесо.
← →
Vitalik__ (2006-03-16 18:04) [1]никто не знает? проблема...
← →
Leonid Troyanovsky © (2006-03-17 10:17) [2]
> 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.
Страницы: 1 вся ветка
Текущий архив: 2006.04.02;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.039 c
