Текущий архив: 2006.10.22;
Скачать: CL | DM;
Вниз
Как использовать мышиное колесо прокрутки Найти похожие ветки
← →
Korneley © (2006-10-04 09:31) [0]Подскажите плз., какие сообщения генерируются при вращении колесика мыши? Возникла необходимость делать "zoom in"/"zoom out", колесо как раз для этого годится, а я вот как его пользовать?
← →
Elen © (2006-10-04 09:34) [1]В каком компоненте?
+ Вообще :unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
ComboBox1: TComboBox;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure ft(var Msg: TMsg; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//********* PROCEDURE**********
procedure tform1.ft;
//const
//Var
begin
if msg.message = wm_mousewheel then
caption:=caption+"d";
end;
//********* END PROCEDURE*******
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=ft;
end;
end.
← →
Elen © (2006-10-04 09:37) [2]В догонку
//********* PROCEDURE**********
procedure tform1.ft;
//const
//Var
begin
if msg.message = wm_mousewheel then
caption:=inttostr(integer(Msg.wParam));
end;
//********* END PROCEDURE*******
отрицательное число - вращение на себя
положительное - от себя
← →
Korneley © (2006-10-04 09:44) [3]Окейно! Исчерпывающе. Спасибо!
Страницы: 1 вся ветка
Текущий архив: 2006.10.22;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.029 c
