Komponente zur Laufzeit erzeugen - Funktion zuweisen?

[Master_RC]

hi leutz!

Ich versuche das Kartenspiel "Pazaak" von Star Wars nachzubauen. (falls es jemand kennt)

Jetzt erzeuge ich X TImage für die Hand des Spielers. Klappt alles wunderbar, allerdingsmöchte ich gerne, dass beim onClick eines Images eine Prozedur/Funktion durchgeführt werden soll.
Geht ja gut, alerdings sollte dabei ein Parameter benutzt werden.

Zuerst:
So erstelle ich die TImages:

Delphi-Quellcode:

procedure KartenLegen;
var i: Integer; Bild: TImage; BildText: String;
begin
  // Spielerhand legen
  for i := 0 to 5 do begin
    if SpielerHand[i].wert < 0 then begin
      BildText := 'minus' + inttostr(SpielerHand[i].wert) + '.bmp';
    end else begin
      BildText := 'plus' + inttostr(SpielerHand[i].wert) + '.bmp';
    end;
    if SpielerHand[i].unbenutzt = false then begin
      BildText := 'Leer.bmp';
    end;
    Bild:=TImage.Create(Form1);
      with Bild do begin
        Parent:=Form1.Groupbox3;
        Left:=8 + i*49;
        Top:=16;
        Transparent := true;
        Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'\data\skin\'+skin+'\'+BildText);
//        OnClick:=KarteBenutzen(i);
      end;

  end;

end;

Das kommentierte onClick-Ereignis ist mein Problem. Ich hätte gerne dass eben die Prozedur "KarteBenutzen" durchgeführt wird, allerdings mit dem Parameter, welcher den Kartenwert darstellt.

Also bei einer Karte mit dem Wert 4 sollte KarteBenutzen(4); ausgeführt werden.
Klappt aber nicht :/

[dataspider]

Hi,

wie wäre es mit:

Delphi-Quellcode:

with Bild do begin
  Parent:=Form1.Groupbox3;
  Left:=8 + i*49;
  Top:=16;
  Transparent := true;
  Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'\data\skin\'+skin+'\'+BildText);
  OnClick:=KarteBenutzen;
  Tag := i;
end;

Dann kannst du im Event über das Tag des Senders den Wert bestimmen.

Cu, Frank

[Master_RC]

Verdammt, warum müssen die blödsten Probleme immer die einfachsten Lösungen haben?

Ich kanns zwar grade nicht ausprobieren, aber ich bin mir ziemlich sicher, dass es so hinhaut

Vielen Dank!

Ich beuge mich jetzt meiner Dummheit und renn mal kurz gegen die Wand ^^

Nochmals vielen Dank, jetz kann ich endlich weitermachen