Форум: "Начинающим";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];
ВнизКак назыв. событие, когда прокручивать колесиком мышки? Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.04 c