Funktion einer Form über Screen.Forms aufrufen

[bwolf]

Hi all,

ich steh etwas auf dem Schlauch...
Ich gehe in einer Form über Screen.Forms alle offenen Forms durch, und auf jeder sichtbaren Form möchte ich dann eine eigene Function aufrufen.

Delphi-Quellcode:

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

So klappt das nicht, das er ja meineFunction nicht kennt...aber wie kann man das elegeant lösen?

Ich hab es bisher so gelöst:

Delphi-Quellcode:

    for iInt := 0 to Screen.FormCount-1  do
    begin
      if (Screen.Forms[iInt].visible = true) then
        if Screen.Forms[iInt].Name = 'frm_test' then close := frm_anrede.meineFunction(self);
    end;

Aber das muß doch besser gehn oder?
Danke für eure Hilfe,
grüße ben