求DLL封裝CHILD FORM的實例,有的朋友發份給我,謝了,DELPHI的實例 如題:[email protected] 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit uformdll;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,math, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; procedure apphandle(handle1:thandle);stdcall; procedure formshow;stdcall;implementation{$R *.dfm}procedure apphandle(handle1:thandle);beginapplication.Handle:=handle1;end;procedure formshow;beginform1:=tform1.Create(application);form1.ShowModal;end;procedure TForm1.Button1Click(Sender: TObject);begin color:=randomrange(0,255*255*255);end;end. 这个控件我已经安装了,怎么还报错啊? 会话下启动进程的思路,是否可行 用TDIB读取图像数据怎么老出错 求Delphi5 的全部dcp文件 寻求用RAVE组件打印报表 求助图象变形处理程序 给大家介绍一个招delphi人员的公司 运用ADO遇到的问题? http://www.hyperjoint.com/downdolink.htm这个软件是怎么做的? 关于EDLLLoadError 中需要链接的库 还没正式用,就发现Delphi2009几个Bugs! 找工作问题,散分
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,math, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
procedure apphandle(handle1:thandle);stdcall;
procedure formshow;stdcall;implementation{$R *.dfm}
procedure apphandle(handle1:thandle);
begin
application.Handle:=handle1;
end;
procedure formshow;
begin
form1:=tform1.Create(application);
form1.ShowModal;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
color:=randomrange(0,255*255*255);
end;end.