DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: lixuan123
今日帖子: 20
在线用户: 10
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 nuptxxy (蹭饭家) ★☆☆☆☆ -
盒子活跃会员
2003/11/24 9:22:21
标题:
如何限制窗体的再次运行 浏览:1193
加入我的收藏
楼主: 如有一个Form1,点击一按键,Form2出现
注:Form2为fsNormal属性,
且Form2的出现是
----------------------------------------------
-
作者:
男 nuptxxy (蹭饭家) ★☆☆☆☆ -
盒子活跃会员
2003/11/24 9:23:04
1楼: 接上面
procedure TForm1.Button1Click(Sender: TObject);
Var
 Form2:TForm2;
begin

  Form2:= tForm2.Create(Application);
 Form2.Show;


end;
----------------------------------------------
-
作者:
男 nuptxxy (蹭饭家) ★☆☆☆☆ -
盒子活跃会员
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;

----------------------------------------------
维护世界和平,共创美好盒子。
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行85.9375毫秒 RSS