当前位置:主页>仓库管理软件> 列表

如何在主窗品上同时打开多个子窗口并可以切换 找免费的进销存软件

仓库管理软件版1楼: 各位大虾:
本人还做一个多窗口程序,但不知如何实现。请提供DEMO代码,谢谢

2楼: //to see if Form is already open
function IsFormCreated(const FormName :string): Boolean;
var i: Integer;
begin
Result := False;
for i := Screen.FormCount-1 Downto 0 do
begin
if (Screen.Forms[i].Name = FormName) then
begin
Result := True;
Break;
end;
end;
end;

//Create and Show Form:
if IsFormCreated(''OperForm'') then //填入你自己的Form
OperForm.BringToFront
else begin
OperForm := TOperForm.Create(Application);
OperForm.Show;
end; 如免费的进销存软件

3楼: TO:楼上
我要的是在同一个窗口上有多个窗体,当最小化是可以在下面看得到,当关闭是自动释放窗口,

4楼: http://www.delphibbs.com/keylife/iblog_show.asp?xid=19004
参加我上面这篇笔记

5楼: 用主窗体与子窗体就可以实现了

6楼: 主窗体与子窗体好像无法实现

仓库管理软件版7楼: to:yyh5x
你给的那个算法,不打开一次再关了以后,再打开就不行了,是不是有BUG

8楼: form1.show;
form2.show;
form3.show;
form4.show;
form5.show;

這樣就可以多個窗口相互使用。

9楼: activete就行, 弄个列表,装载已经create的窗体名, 每个对应一个窗体对象, 每次激活时只要active就行了。

10楼: MDI?
将主窗体的模式设置为MDI就行了。