TScrollBox的OnMouseWheel事件不响应，是什么原因?

jq_song 2002-04-13 03:10:53

TScrollBox的OnMouseWheel事件不响应，是什么原因?

...全文

31 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

magicsnake 2002-04-13

打赏
举报

回复

各种原因,不能具体点么?

Delphi XE2应用系统皮肤后 TscrollBox Brush画刷设置无效，通过禁用皮肤功能解决。

TscrollBox TImages应用。

DELPHI动态创建删除FRAME unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,FM; type TForm2 = class(TForm) Panel1: TPanel; Button2: TButton; ScrollBox1: TScrollBox; procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; type TFM = Array Of TFrame1; var Form2: TForm2; aFM: TFM; procedure DeleteArrItem(var arr: TFM ; Index: Integer);stdcall; implementation {$R *.dfm} procedure DeleteArrItem(var arr: TFM ; Index: Integer); var Count: Cardinal; i:integer; begin Count := Length(arr); if (Count = 0) or (Index = Count) then Exit; Move(arr[Index+1], arr[Index], (Count-Index)* SizeOf(arr[0])); SetLength(arr, Count - 1); for I := 0 to Length(arr) - 1 do begin arr[i].Label1.Caption:=inttostr(i); end; end; procedure TForm2.Button2Click(Sender: TObject); var fram:TFrame1; begin SetLength(aFM,length(aFM)+1); aFM[length(aFM)-1] :=TFrame1.Create(nil) ; fram:=aFM[length(aFM)-1]; fram.Label1.Caption:=inttostr(length(aFM)-1); fram.Parent:=ScrollBox1; end; end. unit fm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TFrame1 = class(TFrame) GroupBox1: TGroupBox; Label1: TLabel; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; implementation uses unit2; {$R *.dfm} procedure TFrame1.Button1Click(Sender: TObject); begin DeleteArrItem(aFM,strtoint(label1.Caption)); ( Sender as Tbutton ).Parent.Parent.Destroy; end; end.

TMenuItem显示在右侧不使用MDI制作子窗体不使用标题栏移动窗体不使用标题栏移动窗口两行hint 从XML文件动态创建菜单从另外MDI子窗口读数据使控件具有阴影效果使每个MDIChild填充整个主窗口区域使用Enter键替代Tab键使用动画效果关闭窗口使用动画方式打开窗体使用帮助文件使用状态栏显示hint 使用系统图标使窗体不能移动关闭一个MDI子窗体创建一个能改变大小的无边界窗体创建半透明窗体创建圆角窗体创建透明窗体判断窗体是modal 制作动画应用程序图标制作可移动不能改变大小的窗体制作永远最小化窗口制作透明窗口取和设置鼠标位置取鼠标指针下面的活动TWinControl 启动时隐藏主窗口在 window xp 使用阴影效果在TCombobox内显示多行文本在TScrollBox上显示窗体在你的程序中使用 Win XP 可视风格在窗体上制造多边形洞在窗体上挖洞在窗体周围画彩色轮廓定位messagebox 实现窗口的最小化动画效果将InputQuery定位在窗体居中位置怪异窗体手动改变窗体比例抓屏拖拽时显示窗口内容捕获主窗体WM_MOVE消息改变Hint字体改变Hint的显示时间改变MessageDlg的按钮标题最小化控件最小化第二个窗口到任务栏查找窗体注册类格式化MessageDlg 检查PopUp菜单是否打开检查控件是否被其它窗口遮掩添加菜单项到系统菜单渐变色填充窗体特效窗口移动指针到当前具有焦点的控件移除系统菜单项自动关闭TCommonDialog 运行时改变MainForm 运行时移动控件运行时移动窗口控件选中或取消其它窗口的复选框通过在标题栏上右击缩小窗口防止 Windows 最小化窗体防止控件重画防止窗体改变大小和移动隐藏标题栏隐藏窗体的最大化和最小化按钮

unit PreviewWord; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, OleCtnrs,ComObj, Buttons, Mask, DBCtrls, ExtCtrls; type TForm1 = class(TForm) ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; OpenDialog1: TOpenDialog; OleContainer2: TOleContainer; DBEdit1: TDBEdit; DataSource1: TDataSource; BitBtn1: TBitBtn; Button1: TButton; Panel1: TPanel; ScrollBox1: TScrollBox; OleContainer1: TOleContainer; ScrollBox2: TScrollBox; Splitter1: TSplitter; procedure Button1Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure DBEdit1Change(Sender: TObject); private procedure s_ole_clickck(Sender:TObject;Button:TMouseButton; Shift: TShiftState; X, Y: Integer); function create_S_Ole(nn:integer):ToleContainer; procedure delete_s_ole; { Private declarations } public { Public declarations } end; var Form1: TForm1;

13,825

社区成员

102,679

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章