Einzelnen Beitrag anzeigen

cltom

Registriert seit: 22. Sep 2005
221 Beiträge
 
Delphi 12 Athens
 
#1

Prozedur als Argument einer Prozedur übergeben

  Alt 23. Jun 2008, 11:33
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

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
  Mit Zitat antworten Zitat