unit Unit2;
interface
uses
Classes;
type
MyThread = class(TThread)
private
FForm: TForm;
protected
procedure Execute;
override;
constructor create(form: TForm);overload;
end;
implementation
constructor MyThread.create(form: TForm);
begin
inherited create(false);
FForm := form;
end;
procedure MyThread.Execute;
begin
//按FForm打开窗口吧
end;
end.
