RegisterComponents与RegisterNoIcon

[林石公]

写组件时,一般会用到这两个函数

1 procedure RegisterComponents(const Page: string; const ComponentClasses: array of TComponentClass);
2 procedure RegisterNoIcon(const ComponentClasses: array of TComponentClass);

函数1注册的一般会出现在面板上,如可视的TEdit,不可视的TMainMenu, TActionList
函数2注册的不会出现在面板上,如TMenuItem, TAction

那么在运行时,能否用代码来判断某个组件是如何注册的
实际上我的想作一个窗体编辑器,RegisterComponents的非可视组件我需要显示,而RegisterNoIcon注册的组件不需要显示,所以我希望能判断一下以便我分别处理

嗯,从是否TControl判断可能行不通,例如TActionList,TAction,TMenuItem,TMainMenu都不是TControl但Delphi的IDE会在设计窗体时,显示TActionList,TMainMenu,而不显示TAction,TMenuItem,

请指教,谢谢

[打酱油的无证程序猿]

帮顶。。。

[Frank.WU]

Greatis Form Designer Pro 可能有点启发

[林石公]

哇,楼上的兄弟有这个东西的源码?

[TONGMMtt]

hello




















































































个地方官方

[Michealwu]

帅气，顶一个！！！！！！

[jjjahhahahahhah]

好 非常好

[AnYidan]

关注学习中

[dazade]

好，顶起来！

[dazade]

呵呵呵!

[xiaoguizl]

顶一个

[兜兜]

dddddddddddddddddddddddd

[罗曼松松]

兄弟，顶死啊

[hyckkx]

学习学习学习

[xiaowucmd1]

顶你下伙计!

[wxzself]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

mycomps : tStringlist;
mynoIcons : Tlist;

implementation

{$R *.dfm}
// 测试注册代码
procedure TForm1.Button1Click(Sender: TObject);
begin
RegisterComponents('', [tbutton, tlabel]);
RegisterNoIcon([tcheckbox, tedit]);
end;


// 注册控件过程
procedure RegisterComponentsProc(const Page: string;
const ComponentClasses: array of TComponentClass);
var
i:Integer;
begin
for i := low(ComponentClasses) to high(ComponentClasses) do
begin
mycomps.AddObject(Page, TObject(ComponentClasses[i]));
end;
end;

// 注册非可视控件过程
procedure RegisterNoIconProc(
const ComponentClasses: array of TComponentClass);
var
i:Integer;
begin
for i := low(ComponentClasses) to high(ComponentClasses) do
begin
mynoIcons.Add(ComponentClasses[i]);
end;
end;

// 初始化
initialization
mycomps := tStringlist.Create;
mynoIcons := Tlist.Create;
classes.RegisterComponentsProc := RegisterComponentsProc;
classes.RegisterNoIconProc := RegisterNoIconProc;

// 析构
finalization
classes.RegisterComponentsProc := nil;
classes.RegisterNoIconProc := nil;
FreeAndNil(mycomps);
FreeAndNil(mynoIcons);

end.

[xiaopingtan]

tks ！我顶！

[daxiao474]

学习中哦 现在我的知识还太少了 进来学习一下咯 值得分享 谢谢 顶一下

[野鬼灬]

好，相当好，帮顶

[zqsmatlab]

好东西！！！！！！！！！！

[shyqqmm]

我顶，学习一哈1