Funktion einer Form über Screen.Forms aufrufen

[Bernhard Geyer]

Über Check mittels As ob das Formular den Richtigen Typ hat und dann mittels as Casten

Delphi-Quellcode:

for iInt := 0 to Screen.FormCount-1  do
begin
  if (Screen.Forms[iInt].visible = true) then
  begin
    if Screen.Forms[iInt] is TmyFormClassName then
      close := (Screen.Forms[iInt] as TmyFormClassName).meineFunction(self);
  end;
end;