请问:我自制的组件在packages上能找到,但在组件面板上找不着对应页标签,组件更不用说了。那么我该怎样做才能找到组件?--------------I am a new player!
解决方案 »
- 已知进程ID和句柄,如何知道此进程的主窗口句柄~~~~~~~~~~~~~~~~~~~~~~~~~~~100分求助~~~~~~~~~~~~~~~~~~~~~~~~
- 自己做的sha1 验证可是做测试的时候出现问题
- 请教高手--送分
- 在QLQuery1数据集控件,在不移动记录(next 等操作)的情况下获取当前字段以外的内容
- 有没有碰到过取数据太多报错的问题(其实也不多的,并且这个问题只出在一台机子上,其它机子上都没问题)
- 在线等待,COMBOBOX的控件里的每一个ITEM前面加一个图标
- 高分相送解决复杂查询问题,高手看过来!(分不够可以再加)
- 如何修改数据表中某一行某一列的值啊(datasource1+query1)?马上给分
- SQL初级问题
- 高手请看以下问题:关于ACCESS数据库的…………
- 我在研究Corba时出现了下面的问题:[Fatal Error] Project1_TLB.pas(32): File not found: 'OrbPas.dcu'
- 请问delphi7的资料现在有哪些比较好的?有地方下载吗?
如果找不到,那么点“添加”按钮将你的包加进去即可。
我爱Delphi!
unit HLink;
interface
uses
Windows,Graphics, Messages, SysUtils,shellAPI, Classes, QControls, forms,dialogs,QStdCtrls;
type
THLink = class(TLabel)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
constructor create(aowner:Tcomponent);override;
destructor destroy;override;
procedure click;override;
published
{ Published declarations }
end;procedure Register;implementation//const crhand=1;
constructor THlink.create(aowner:Tcomponent);
begin
inherited create(Aowner);
// screen.cursors[crhand]:=loadcursor(hinstance,pchar('myhand'));
// cursor:=crhand;
with font do
begin
color:=clblue;
// style:=[fsUnderline];
end;
end;destructor THlink.destroy;
begin
inherited destroy;
end;procedure THlink.click;
begin
inherited click;
if Trim(caption)<>'' then
shellexecute(getdesktopwindow(),'open',pchar(caption),nil,nil,sw_shownormal);
end;
procedure Register;
begin
RegisterComponents('mytools', [THLink]);
end;end.