Форум: "Начинающим";
Текущий архив: 2007.03.04;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.117 c