|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2003/11/24 9:22:21 |
标题: |
|
加入我的收藏 |
楼主: |
如有一个Form1,点击一按键,Form2出现 注:Form2为fsNormal属性, 且Form2的出现是
----------------------------------------------
- |
作者: |
|
2003/11/24 9:23:04 |
1楼: |
接上面 procedure TForm1.Button1Click(Sender: TObject); Var Form2:TForm2; begin
Form2:= tForm2.Create(Application); Form2.Show;
end;
----------------------------------------------
-
|
作者: |
|
2003/11/24 9:24:14 |
2楼: |
有没有不要用父子窗体和控制菜单的方法
----------------------------------------------
-
|
作者: |
zizii (高高高级馒头) |
★☆☆☆☆ |
-
|
神秘会员 |
|
2003/11/24 9:28:05 |
3楼: |
procedure TForm1.Button1Click(Sender: TObject); begin Application.CreateForm(TForm2, Form2); Form2.Show; end;
procedure Form2.OnClose(....); begin Action:=caFree; end;
----------------------------------------------
维护世界和平,共创美好盒子。
|
|