Type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
Type
TMonThread = class(TThread)
Procedure MakeForm;
Procedure Execute;
end;
var
Th : TmonThread;
Form1: TForm1;
F2 : Tform1;
implementation
{$R *.dfm}
Procedure TMonThread.MakeForm;
begin
application.createForm(TForm1,F2)
end;
Procedure TMonThread.Execute;
begin
Synchronize(MakeForm);
end;
Procedure TForm1.Button1Click(Sender: TObject);
begin
Th:=TMonThtread.Create(True)
Th.FreeOnTeminate:=True;
Th.Resume;
end;
Bon Coding ....
ManChesTer.