灵异事件,我自定义的MyTreeView遁了 说的不准确,是MyTreeView从来没在工程中出现,所以我应该没有机会去隐藏它,一个单元内在它之前和之后的控件都有显示,就它不出来,在palette属性里能看到它,里dpk或其它设计控件的PAS里能在palette上看来它,一进工程或者普通PAS就看不到了。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 不光是treeview 我定义listview也不成功,不能成功显示在palette,在属性里查,却是存在 unit MyBoxes;interfaceuses SysUtils, Classes, Controls, StdCtrls,QComCtrls;type TMyCheckBox = class(TCheckBox) private { Private declarations } protected { Protected declarations } public { Public declarations } published { Published declarations } end;type TMyTreeView = class(TTreeView) private { Private declarations } protected { Protected declarations } public { Public declarations } published { Published declarations } end;type TMyListView = class(TListView) private { Private declarations } protected { Protected declarations } public { Public declarations } published { Published declarations } end;type TMyComboBox = class(TComboBox) private { Private declarations } protected { Protected declarations } public { Public declarations } published { Published declarations } end;procedure Register;implementationprocedure Register;begin RegisterComponents('Favor', [TMyCheckBox,TMyTreeView,TMyListView,TMyComboBox]);end;end.准确说,我什么都没写,MycheckBox和MyCombox有显示,TreeView和ListView 怎么会有QComCtrls?不要用这个,这个是CLX的。用VCL的ComCtrls。问题应该就是出在这里 我还有注意这一点,但还是搞错了,搞得我用delphi自动生成一个,郁闷了很久.谢谢. 求助,有谁知道怎样在delphi中,将数据库转出为excell,打印? 怎么取一字符串的特定位置的某几个字符? Heap系列的函数怎么用呀 向操作excel的高手们敬礼!! 一个小问题?(等待中) 如何掩藏应用程序(用ctrl+alt+del看不到),并且可以随系统一起启动 怎样提高打印质量的问题?(急,在线等待) 请问各位大侠:如何判断一个字符是汉字的半字符 请问如何实现label等一些文字标签的渐隐渐现效果? 什么控件可以录音,Mediaplayer吗? 登陆窗口中AdoQuery查询的问题 状态栏的显示(锁定)问题
interface
uses
SysUtils, Classes, Controls, StdCtrls,QComCtrls;
type
TMyCheckBox = class(TCheckBox)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;
type
TMyTreeView = class(TTreeView)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;
type
TMyListView = class(TListView)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;
type
TMyComboBox = class(TComboBox)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;
procedure Register;
implementationprocedure Register;
begin
RegisterComponents('Favor', [TMyCheckBox,TMyTreeView,TMyListView,TMyComboBox]);
end;
end.
准确说,我什么都没写,MycheckBox和MyCombox有显示,TreeView和ListView