能量聚集:编一个极短小的程序

来源:百度文库 编辑:高校问答 时间:2024/05/12 13:41:02
滚轮向上按键盘a
向下按键盘b

我给出delphi的做法

uses SndKey32;

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
Sndkey32.SendKeys('A',false);
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
SndKey32.SendKeys('B',false);
end;

利用窗体自带的鼠标滚轮事件即可

???

……

向上按:PgUP
向下按:PgDN
到最上按:Home
到最下按:End

键盘上有!~

对,楼上的对了。