類的問題

Question

procedure TForm1.Open1Click(Sender: TObject);
我看了人家寫的程序， 有兩個地方看不懂，麻煩有知道者指點下， 在此謝謝大家了
var
  Child: TForm;
  i: integer;
begin
  for i := 0 to Screen.FormCount - 1 do
    if Screen.Forms[i].ClassType = TForm3 then
    begin
      Child := Screen.Forms[3];
      ShowWindow(Child.handle, SW_SHOWNA);
      Child.BringToFront;
      Child.Setfocus;
      TForm(form3) := Child;   //這句怎麽理解？
      Exit;
    end;
  Child := TForm(tform3.NewInstance);
  TForm(form3) := Child;
  Child.Create(form1);   //這句怎麽理解？
end;

Answer 1

呵呵，这段代码怎么那么像我刚工作的时候看到的啊是点击主窗体菜单，打开子窗体（MDI模式），如果之前已经打开过，就让它显示在其他子窗体前面（设为焦点）不过这段代码你是否戒除了部分啊，明显都没看到from3嘛
是不是原来这段代码是一个openform函数里面的啊，里面应该还要一个参数var from 哈哈