var
I: Integer;
begin
for I := 0 to MainForm.MDIChildCount -1 do
begin
if MainForm.MDIChildren[I] is ChildFormClassName then
begin
MainForm.MDIChildren[I].Show;
if MainForm.MDIChildren[I].WindowState = wsMinimized then
MainForm.MDIChildren[I].WindowState := wsNormal;
Break;
end;
end;
end;
I: Integer;
begin
for I := 0 to MainForm.MDIChildCount -1 do
begin
if MainForm.MDIChildren[I] is ChildFormClassName then
begin
MainForm.MDIChildren[I].Show;
if MainForm.MDIChildren[I].WindowState = wsMinimized then
MainForm.MDIChildren[I].WindowState := wsNormal;
Break;
end;
end;
end;
解决方案 »
- 连接mssql2000问题
- 求 Delphi+webServer+数字签名的例子。。
- FTP上传和下载时间是怎么定义的?
- 三层数据库问题,用ClientDataSet显示图片问题!
- 肯请高手们帮帮忙,远程访问服务器问题!(急急急)
- 本地数据库采用delphi+access开发,大家有何见意?
- 我刚开始学DELPHI,请各位介绍以下学习经验!
- *.pas,*.dfm,*.dpr等这类生成文件如何改名啊?谢谢,Help!...........
- 一大堆整数型变量可否同时归零?如:a,b,c:=0;否则要:a:=0;b:=0;c:=0;太麻烦了。不会是Borland的失误吧?
- ShowModal问题????
- 如何知道Delphi工程中包含了多少窗体?
- 很菜的问题 怎样改变MDI子窗体的大小
setwindowpos(某个子窗口名.Handle,hwnd_top,0,0,0,0,swp_nosize or swp_nomove or swp_showwindow)