TFrame可以象TForm一样拦截消息吗？

chinayu2007 2015-11-09 05:13:38

TFrame可以象TForm一样拦截发送到其上的消息吗？

...全文

131 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

chinayu2007 2015-11-10

打赏
举报

BEGIN_MESSAGE_MAP MESSAGE_HANDLER(WM_ERASEBKGND,TMessage,ClientProc) END_MESSAGE_MAP(TFrame); void __fastcall ClientProc(TMessage & Msg); 这里用TFrame好象不行，ClientProc没有反应，也没有报错。

我不懂电脑 2015-11-10

打赏
举报

http://bbs.csdn.net/topics/30217205

缘中人 2015-11-09

打赏
举报

不知道，没这样截过先截获Form再判断Fram吧

这是一个使用D7开发，关于注册方法加载TFrame容器例子，代码有详细说明。http://blog.csdn.net/shengshenglan/article/details/8753439

能将TFrame框架或对像群放入TListView的控件ShowAppListView 不需要按Style样式去做图片，要改Listview的样式只需改对应的框架即可简单代码实现强大功能，可以实现增加多列(Col)显示，望delphi开发者互传，发挥delphi的强大代码里面有demo，还是那句话：由于没做图标，安装后如出现新建/打开工程报错时，请把delphi关完再重开就好了

ViewLoader 是因为无法确定是否存在因眼镜的框架而出现的问题？是否可以通过TTabControl和TTabItems参数编译用户界面来确保App可移动或桌面？临时幻灯片是TTabControlé合法法律，还是合法的？ Cansado de usar TFrame como classe base para suas views吗？没有使用FMX或TEdit组件，不能使用通用布局的TLayout，不能使用没有质量的组件吗？你是不是很喜欢自由主义者的观点，是不是控制权是什么？sem abrirmãode controle？sem abrirmãode controle？sem abrirmãode controle？ ViewLoader。

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.

demo例子基础工具类 struts2 spring mybatis

C++ Builder

13,825

社区成员

102,679

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章