如何在DLL实现窗体重用? 如题。希望给出相应的代码(越简单越好)或相关的电子书籍或文章!谢谢~~ 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls;type TForm1 = class(TForm) Button1: TButton; Image1: TImage; Label1: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; procedure ShowAboutDlg;export;implementation{$R *.dfm}procedure ShowAboutDlg;begin Form1:=TForm1.Create(Application); Try Form1.ShowModal; finally Form1.Free; end;end;procedure TForm1.Button1Click(Sender: TObject);beginclose;end;end.//////////////////////////////////////library Project2;uses SysUtils, Classes, Unit1 in 'Unit1.pas' {Form1};{$R *.res} exports ShowAboutDlg;beginend. 当菜单太长了,如何让菜单并列显示? String问题!救命! 两个问题? 请大家介绍几本入门的书! dbgrid自动适应字段长度 ★关于 select distinct 的奇怪问题?请高人指点★ 求求各位大哥解决数据库问题!!! QuickReport预览保存得问题? 请问,如果编一个杀毒或杀木马的软件,数据库因如何定义?? 三层中库的更新问题。(十万火急!拉兄弟一把吧!!) MDIChild类型的子窗口,大家打开的时候是放中间还是放左上角? 关于memo的问题
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
procedure ShowAboutDlg;export;
implementation{$R *.dfm}procedure ShowAboutDlg;
begin
Form1:=TForm1.Create(Application);
Try
Form1.ShowModal;
finally
Form1.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;end.
//////////////////////////////////////library Project2;
uses
SysUtils,
Classes,
Unit1 in 'Unit1.pas' {Form1};{$R *.res}
exports
ShowAboutDlg;
begin
end.