如何在主窗品上同时打开多个子窗口并可以切换 找免费的进销存软件
本人还做一个多窗口程序,但不知如何实现。请提供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就行了。