我的问题是:在设计MDI子窗口的,打开同一个窗体,并且只能打开一次。再一次打开的时候,不会新建第二张于此相同的窗体。比如打开一个“采购订单”表单后,再一次打开这个表单的后,当前窗体上不会出现两个相同的表单。
请问各位大哥,如何办到呀?谢谢!
请问各位大哥,如何办到呀?谢谢!
解决方案 »
- 把16进制字符串转字符串怎么写算法?
- 关于MDI窗口的问题
- How To Uninstall Delphi2005?
- 如何画一条漂亮的曲线?lineto只能画整数数据
- 版主:怎样管理
- delphi 7 的报表
- 扩展名为*.LDF和*.MDF是什么类型的文件呢?
- 80分~dll中调用form的问题~在panel里showmodal后,整个程序无法操作
- 用DELPHI6开发的程序中 有一函数中有这么一个用法 SetLength(Result, 500); 这其中的 Result 是什么 ?
- 什么代理技术,既不需要设计客户端,又不会隐藏ip地址
- 急,大家来帮忙!
- 出售Delphi6.0+ADO+SQL2000源码
var
li_loop:integer;
lbl_falg:boolean; //窗口是否打开的标志
begin
lbl_falg:=false;
//判断要打开的子窗体中是否已经打开
for li_loop:=0 to self.MDIChildCount-1 do
begin
if self.MDIChildren[li_loop] is Tmdi1 then
begin
lbl_falg:=true; //判断出窗口已打开
end
end; if lbl_falg then //如果子窗体已打开,则将它激活
begin
mdi1.Show;//激活
if mdi1.WindowState=wsMinimized then
ShowWindow(mdi1.Handle,SW_SHOWNORMAL);//如果是最小化就显示为正常
end
else // 如果子窗体未打开,则创建它
begin
mdi1:=Tmdi1.Create(Self);
mdi1.Show;
end;
end;这就是我平时用的,绝对可以解决你的问题