| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как назыв. событие, когда прокручивать колесиком мышки? [D7, 95/98]

dera ©   (2006-03-30 16:01:00) 

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

---

AbrosimovA   (2006-03-31 09:58:00) [1]

У грида нет такого события, но оно есть у его предка 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.

---

Rial   (2006-03-30 23:21:00) [2]

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

---

Virgo_Style   (2006-03-30 22:33:00) [3]

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

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

---

dera   (2006-03-30 16:37:00) [4]

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

---

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

...sorry.

---

Muhan_   (2006-03-30 16:34:00) [6]

нуну )

---

dera   (2006-03-30 16:33:00) [7]

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

---

Cashmare   (2006-03-30 16:30:00) [8]

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

---

Muhan_   (2006-03-30 16:22:00) [9]

OnMouseWheelDown, OnMouseWheelUp ..??

---

Наверх