方法的重写问题

procedure TForm1.Button1Click(Sender: TObject);
  if ActiveMdiChild <> nil then    继承类(ActiveMDIChild).虚方法;这段代码我只大体知道但点击按钮执行当前活动窗体的重写方法,但我不明白到底系统是怎样走了.
继承类(ActiveMDIChild)
这又是什么意思!

解决方案 »

  1.   


    function TCustomForm.GetActiveMDIChild: TForm;
    begin
      Result := nil;
      if (FormStyle = fsMDIForm) and (FClientHandle <> 0) then
        Result := TForm(FindControl(SendMessage(FClientHandle, WM_MDIGETACTIVE, 0,
          0)));
    end;
      

  2.   

    Tfrom(ActiveMDIChild) 
    这是什么意思
      

  3.   

    类型转化啊。把ActiveMDIChild转换成Tform类型的对象。
      

  4.   

    类型的转换C语言方式;  ActiveMDIChile As TForm
      

  5.   

    有点不明白ActiveMDIChild返回的类型不就是TFORM吗,还要转换做什么!