Текущий архив: 2007.03.04;
Скачать: CL | DM;

Вниз

StringGrid   Найти похожие ветки 

← →
Litestone   (2007-02-11 21:17) [0]

Знает ли кто нибудь, как заставить параметр Row(выделенная строка) в StringGrid оставаться неподвижным, когда StringGrid прокручивается колесом мышки.

---

← →
RASkov   (2007-02-11 21:30) [1]

 TMyStringGrid= class(TStringGrid)
   function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override;
   function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; override;
 end;
 TStringGrid = class(TMyStringGrid);

 TForm1 = class(TForm)
   StringGrid1: TStringGrid;
  .....
implementation
{ TMyStringGrid }
function TMyStringGrid.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
 ShowMessage("MyMouseWheelDown");
end;

function TMyStringGrid.DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
 ShowMessage("MyMouseWheelUp");
end;

---

← →
Litestone   (2007-02-11 21:54) [2]

Спасибо RASkov, всё работает.

---

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

Текущий архив: 2007.03.04;
Скачать: CL | DM;

Наверх

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