Im Hauptformular!, könnte es so gehen:
Hierbei wird das aktive Fenster (hat immer den Index 0) auf seine Klassenbezeichnung geprüft.
Delphi-Quellcode:
var i: Integer;
begin if Self.MDIChildCount > 0 then
begin
if Self.MDIChildren[0] is TChild then
ShowMessage('TChild');
if Self.MDIChildren[0] is TMemoChild then
ShowMessage('TMemoChild');
end;
Demo liegt bei
