16,742
社区成员
发帖
与我相关
我的任务
分享delphi中怎么建立新窗体啊
我想在BUTTON1控件中添加代码
单击每一下就会新建一个窗口
最好是两种
一种是新建空白窗口，另一种是新建的窗口与原
窗口一样
讲解一下把 谢谢啊
单击每一下就会新建一个窗口
最好是两种
一种是新建空白窗口，另一种是新建的窗口与原
窗口一样
讲解一下把 谢谢啊
...全文
请发表友善的回复…
发表回复
kelei0017 2007-06-28
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
begin//空白的
with TForm.Create(Application) do
begin
Show;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin//和TForm1一样的
with TForm1.Create(Application) do
begin
Show;
end;
end;
begin//空白的
with TForm.Create(Application) do
begin
Show;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin//和TForm1一样的
with TForm1.Create(Application) do
begin
Show;
end;
end;
