| Код | unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls;
type
TTrackBar = class(ComCtrls.TTrackBar)
private
procedure WMWHEEL(var Msg: TMessage); message WM_MOUSEWHEEL;
end;
TForm1 = class(TForm)
Vol: TTrackBar;
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TTrackBar.WMWHEEL(var Msg: TMessage);
begin
if Msg.WParamHi - WHEEL_DELTA > 0 then Position := Position - 1
else Position := Position + 1;
end;
end. |
Добавлено @ 14:43
P.S. Для Win9x колесо либо не будет работать вообще (т.к. 9x-e не верят в существование колеса мыши и оно не является там системным), либо будет работать стандартно - на усмотрение драйвера мыши. |