我想使ScrollBox在显示滚动条时,随着鼠标滚轮的滚动而使滚动调上下滚动,请问各位该如何做? 我想使ScrollBox在显示滚动条时,随着鼠标滚轮的滚动而使滚动调上下滚动,请问各位该如何做? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我的代码是这样写的unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) ScrollBox_frmMain: TScrollBox; Image1: TImage; procedure ScrollBox_frmMainMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.ScrollBox_frmMainMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);begin if WheelDelta < 0 then begin ScrollBox_frmMain.HorzScrollBar.Position := ScrollBox_frmMain.HorzScrollBar.Position+10; ScrollBox_frmMain.VertScrollBar.Position := ScrollBox_frmMain.VertScrollBar.Position +10; end else begin ScrollBox_frmMain.HorzScrollBar.Position := ScrollBox_frmMain.HorzScrollBar.Position -10; ScrollBox_frmMain.VertScrollBar.Position := ScrollBox_frmMain.VertScrollBar.Position -10; end;end;procedure TForm1.FormCreate(Sender: TObject);var Myimage : TImage;begin ScrollBox_frmMain.Align := alTop; ScrollBox_frmMain.Left := 30; ScrollBox_frmMain.Top := 70; ScrollBox_frmMain.Width := Screen.Width - 150; ScrollBox_frmMain.Height := 430; ScrollBox_frmMain.Ctl3D := False; ScrollBox_frmMain.BorderStyle := bsNone; Myimage := timage.Create(nil); Myimage.Top := 480; Myimage.Height := 200; Myimage.Width := 100; Myimage.Parent := ScrollBox_frmMain;end;end.好像因为Image没有输入焦点,所以此时即使出现了滚动条,再滚动鼠标滚轮也没有作用了,不知道我理解的对不对,请大侠告诉我,对于以上情况,我该如何能使滚轮起作用? 关于DELPHI写的WEBSERVICE,总是使IIS挂掉的问题 一段简单的C#代码改成Delphi代码(不难,会的进来) 在C#中加密,在Delphi解密 简单的查询问题 才鸟的问题,请大家帮忙解释,什么是stdcall它有什么作用,谢谢 inherited有什么作用?什么时候用? 如何判断treeview控件里面是空的,在线等待 关于多层数据库的事务问题! pchar是个函数吗 如何清空类型文件中的数据纪录? dll运行出错 浙江联信软件诚聘DELPHI程序员 ###############.......vba代码——>delphi......#############
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;type
TForm1 = class(TForm)
ScrollBox_frmMain: TScrollBox;
Image1: TImage;
procedure ScrollBox_frmMainMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.ScrollBox_frmMainMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
if WheelDelta < 0 then
begin
ScrollBox_frmMain.HorzScrollBar.Position := ScrollBox_frmMain.HorzScrollBar.Position+10;
ScrollBox_frmMain.VertScrollBar.Position := ScrollBox_frmMain.VertScrollBar.Position +10;
end
else
begin
ScrollBox_frmMain.HorzScrollBar.Position := ScrollBox_frmMain.HorzScrollBar.Position -10;
ScrollBox_frmMain.VertScrollBar.Position := ScrollBox_frmMain.VertScrollBar.Position -10;
end;
end;procedure TForm1.FormCreate(Sender: TObject);
var
Myimage : TImage;
begin
ScrollBox_frmMain.Align := alTop;
ScrollBox_frmMain.Left := 30;
ScrollBox_frmMain.Top := 70;
ScrollBox_frmMain.Width := Screen.Width - 150;
ScrollBox_frmMain.Height := 430;
ScrollBox_frmMain.Ctl3D := False;
ScrollBox_frmMain.BorderStyle := bsNone;
Myimage := timage.Create(nil);
Myimage.Top := 480;
Myimage.Height := 200;
Myimage.Width := 100;
Myimage.Parent := ScrollBox_frmMain;end;end.
好像因为Image没有输入焦点,所以此时即使出现了滚动条,再滚动鼠标滚轮也没有作用了,不知道我理解的对不对,请大侠告诉我,对于以上情况,我该如何能使滚轮起作用?