Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**Rumpi**

Das ist besser !

Delphi-Quellcode:

			procedure TForm???.CallFunction( Func: TNotifyEvent );

begin

  MyFunction( Self );

  if Assigned( Func ) and (@Func <> @FMyFunction) then

    Func( nil );

end;

mfg Rumpi

Rumpi Registriert seit: 26. Aug 2003 Ort: Berlin 72 Beiträge	#5 Re: Funktion an Funktion übergeben. 12. Sep 2003, 12:30 Das ist besser ! markieren Delphi-Quellcode: procedure TForm???.CallFunction( Func: TNotifyEvent ); begin MyFunction( Self ); if Assigned( Func ) and (@Func <> @FMyFunction) then Func( nil ); end; mfg Rumpi
	Zitat

Einzelnen Beitrag anzeigen

Re: Funktion an Funktion übergeben.