Текущий архив: 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.048 c