Prozedur als Argument einer Prozedur übergeben

**cltom**

Hallo DP,

hoffe, es ist nix triviales, bei den Suchbegriffen "Prozedur, Parameter" findet man halt dutzende unpassende Treffer.

Folgendes: ich möchte in einer procedure eine Reihe von Objekten erzeugen und diesen Objekten (Images) eine procedure für das OnClick-Event zuweisen. Soweit kein Problem. Jetzt würde ich aber gern die Parameter dieser "Objekt-erzeugen-procedure" übergeben. So auch jene procedures, die den images dann zugewiesen werden. Also sinngemäß soll das dann so aussehen

zusammenfalten · markieren

Delphi-Quellcode:

			procedure create_images(afolder: string; aparent: TTabSheet; aOnClickEvent: ??????);

begin

  for i:=1 to n

    begin

      img := TImage.Create;

      img.parent := aparent;

      img.onclick := aOnClickEvent;

    end; 

end;

Zur Übersicht stark zusammengekürzt.

Geht so etwas grundsätzlich? Welchen Typ hat ein solches Argument?

dank und gruß
tom

Prozedur als Argument einer Prozedur übergeben

Prozedur als Argument einer Prozedur übergeben

Forumregeln