Katherinexd 2016-01-25 11:58 采纳率: 35.3%
浏览 1608
已采纳

delphiMDI程序的设计

本人在自学delphi,有一段代码看不懂,求教各位大神解释,越详细越好
procedure OpenChildForm(FormClass: TFormClass; var Fm; AOwner:TComponent);
var
i: integer;
Child:TForm;
begin
for i := 0 to Screen.FormCount -1 do
if Screen.Forms[i].ClassType=FormClass then
begin
Child:=Screen.Forms[i];
if Child.WindowState=wsMinimized then
ShowWindow(Child.handle,SW_SHOWNORMAL)
else
ShowWindow(Child.handle,SW_SHOWNA);
if (not Child.Visible) then Child.Visible:=True;
Child.BringToFront;
Child.Setfocus;
TForm(Fm):=Child;
exit;
end;
Child:=TForm(FormClass.NewInstance);
TForm(fm):=Child;
Child.Create(AOwner);
end;

  • 写回答

2条回答 默认 最新

  • threenewbee 2016-01-25 12:08
    关注
     procedure OpenChildForm(FormClass: TFormClass; var Fm; AOwner:TComponent); 打开子窗口(窗口类型,父窗口)
    var
    i: integer;
    Child:TForm;
    begin
    for i := 0 to Screen.FormCount -1 do
    if Screen.Forms[i].ClassType=FormClass then //遍历屏幕上所有的窗口,寻找类型和参数传来的一样的
    begin
    Child:=Screen.Forms[i];
    if Child.WindowState=wsMinimized then //如果窗口最小化,那么显示它
    ShowWindow(Child.handle,SW_SHOWNORMAL)
    else
    ShowWindow(Child.handle,SW_SHOWNA); //否则隐藏它
    if (not Child.Visible) then Child.Visible:=True;
    Child.BringToFront; //把窗口放入前台
    Child.Setfocus; //设置输入焦点
    TForm(Fm):=Child;
    exit; //退出
    end;
    Child:=TForm(FormClass.NewInstance); //如果没找到,那么就走不到退出的地方,进入这里
    TForm(fm):=Child; //创建新窗口
    Child.Create(AOwner);
    end;
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(1条)

报告相同问题?

悬赏问题

  • ¥15 微带串馈天线阵列每个阵元宽度计算
  • ¥15 keil的map文件中Image component sizes各项意思
  • ¥30 BC260Y用MQTT向阿里云发布主题消息一直错误
  • ¥20 求个正点原子stm32f407开发版的贪吃蛇游戏
  • ¥15 划分vlan后,链路不通了?
  • ¥20 求各位懂行的人,注册表能不能看到usb使用得具体信息,干了什么,传输了什么数据
  • ¥15 Vue3 大型图片数据拖动排序
  • ¥15 Centos / PETGEM
  • ¥15 划分vlan后不通了
  • ¥20 用雷电模拟器安装百达屋apk一直闪退