Скачать: CL | DM;

Как назыв. событие, когда прокручивать колесиком мышки?   Найти похожие ветки 

← →
dera   (2006-03-30 16:01) [0]

Например, в гриде.

---

← →
Muhan_   (2006-03-30 16:22) [1]

OnMouseWheelDown, OnMouseWheelUp ..??

---

← →
Cashmare ©   (2006-03-30 16:30) [2]

OnMouseWheel, а Up и Down - нажатия на колесо

---

← →
dera   (2006-03-30 16:33) [3]

и чего??? нету такого события?

---

← →
Muhan_   (2006-03-30 16:34) [4]

нуну )

---

← →
dera   (2006-03-30 16:35) [5]

...sorry.

---

← →
dera   (2006-03-30 16:37) [6]

...а в DBGrid"e  OnMouseWheel нету. Что делать?

---

← →
Virgo_Style ©   (2006-03-30 22:33) [7]

ответ на вопрос "что делать" существенно зависит от ответа на вопрос

А какова задача?

---

← →
Rial ©   (2006-03-30 23:21) [8]

А чем тебе на нравятся события самой формы ?
Если нужно отсеять лишние - при возникновении такого события проверяй фокус ввода.

---

← →
AbrosimovA   (2006-03-31 09:58) [9]

У грида нет такого события, но оно есть у его предка TControl.
Ниже представлен работающий пример:  

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, Grids;

type TMyGrid = class(TStringGrid)
 protected
  property OnMouseWheel;
 end;

type
 TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
 private
   procedure GridMouseWheel(Sender: TObject; Shift: TShiftState;
                  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
 StringGrid: TMyGrid;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid:=TMyGrid.Create(Self);
StringGrid.Parent:=Form1;
StringGrid.OnMouseWheel:= GridMouseWheel;
end;

procedure TForm1.GridMouseWheel(Sender: TObject; Shift: TShiftState;
                  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
//
end;

end.

---

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

Скачать: CL | DM;



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