在MDI窗体中怎么判断哪个子窗口是活动窗口？

Question

如题，谢谢！

Answer 1

function TMainForm.getActiveChild: Tchildform;
begin
  //当前子窗口对象
  result := nil;
  if ActiveMDIChild <> nil then
    if ActiveMDIChild.ClassType = Tchildform then
       result := Tchildform(ActiveMdiChild);
end;

Answer 2

试一下能不能实现结果：
var
  i: Integer;
begin
  for i := 0 to self.MDIChildCount - 1 do
    if self.MDIChildren[i].Active then 
      ShowMessage(self.MDIChildren[i].Name + ' is Active');
end;