unit Unit1;interfaceuses
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;implementationuses Unit2;{$R *.dfm}
procedure FileMd;
begin
Application.CreateForm(TForm2, Form2); //这里错误,
Form2.ShowModal; //这里错误,
end;
procedure TForm1.Button1Click(Sender: TObject);
var
dloopThreadID:DWORD;
begin
CreateThread(nil,0,@FileMD,nil,0,dloopThreadID);
end;end.
会创建多个窗体!该如何创建!
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;implementationuses Unit2;{$R *.dfm}
procedure FileMd;
begin
Application.CreateForm(TForm2, Form2); //这里错误,
Form2.ShowModal; //这里错误,
end;
procedure TForm1.Button1Click(Sender: TObject);
var
dloopThreadID:DWORD;
begin
CreateThread(nil,0,@FileMD,nil,0,dloopThreadID);
end;end.
会创建多个窗体!该如何创建!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货