建立窗口的问题

Question

我看这位兄弟吧问题复杂化了吧。。delphi没有vc那么复杂的应该这样：
procedure TMainForm.Button1Click(Sender: TObject);
begin
     Application.CreateForm(TNoteForm ,noteform);
     noteform.showmodal;
     noteform.release;
end;就这么简单。。

Answer 1

procedure TMainForm.Button1Click(Sender: TObject);
begin
     WITH TNoteForm.CREATE(SELF) DO
     BEGIN
       showmodal;
       FREE;
     END;
end;
就这么简单

Answer 2

你应该先用Delphi画一个新生成的窗口。
让后新建一个工程，直接在里面加上这个窗体的单元名！
不要在工程里添加！
然后就在工程的单元里：
procedure TMainForm.Button1Click(Sender: TObject);
var
  NewForm: TNewForm;
begin
  NewForm:= TNewForm.Create(nil);
  NewForm.ShowModal;
  NewForm.Free
end;

Answer 3

KAO! 我更回答完就已经结帖了？倒分？（倒粪）