Array im Prozedurnamen ansprechen

[Zenny90]

ersteinmal find ich es super wie schnell ihr geantwortet habt und einem hier versucht wird zu helfen. habs in andern beiträgen hier schon oft gelesen, aber in so kurzer zeit so viel.

ich weiß leider nicht wirklich wo ich die zeile "Imagearr[4].OnClick := ImageOnClick;" hinsetzten soll. hab zwar n bisl versucht die ma an alle erdenklichen stellen im cod ezu setzten aber nix geht. ich muss ja irgendwas unversucht gelassen haben dann

für die, die mein problem noch nicht ganz verstehen werd ich jetzt mal den code einfügen:

Delphi-Quellcode:

unit FensterDeckbuilder;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, IniFiles, jpeg;

type
  TForm3 = class(TForm)
    ButtonBeenden: TButton;
    Label1: TLabel;
    Image1: TImage;
    Button1: TButton;
    procedure ButtonBeendenClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure DefineKarte;
    procedure NeueKarte;
    procedure MouseOverKarte;
    procedure ImageOnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;    
  ini: TIniFile;     
  JPEG: TJpegImage;
  BMP:TBitmap;
  MouseStartPos : TPoint;
  Down : Boolean = False;
  MousOverKarte: Boolean = False;
  xdifferenz, ydifferenz: integer;
  xpos: integer = 200;
  ypos: integer = 100;
  breite: integer = 100;
  k: integer = 0;
  maxKarten: integer = 120;
  ArrayExist: array of Boolean;
  ArrayBild: array of TImage;
  ArrayBildx: array of integer;
  ArrayBildy: array of integer;

implementation

{$R *.dfm}

procedure TForm3.ImageOnClick(Sender: TObject);
begin
  Label1.Caption := InttoStr(k);
end;

{
ArrayBild[1].OnClick := ImageOnClick;
}

procedure TForm3.DefineKarte;
begin
  k := 0;
  while k<maxKarten do
  begin
    ArrayExist[k] := False;
    k := k + 1;
  end;
end;

procedure TForm3.NeueKarte;
begin
  k:=0;
  repeat
    k:=k+1;
  until ArrayExist[k]=False;

  ArrayExist[k] := True;

  ArrayBild[k] := timage.Create(Form3);
  ArrayBild[k].parent := Form3;
  ArrayBild[k].Stretch := True;
  ArrayBild[k].Transparent := True;
  ArrayBild[k].Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'Bilder\Jareth, der Löwentitan.jpg');

  ArrayBild[k].Left := xpos+k*10;
  ArrayBild[k].Top := ypos+k*10;
  ArrayBild[k].Width := breite;
  ArrayBild[k].Height := Round(breite*1.39);

  ArrayBild[k].Visible := True;
end;

procedure TForm3.MouseOverKarte;
begin
  k:=0;
  MousOverKarte:=False;

  while ((MousOverKarte=False) and (k<maxkarten)) do
  begin
    if (ArrayBild[k].Left<MouseStartPos.X) and (MouseStartPos.X<(ArrayBild[k].Left+breite)) then
    begin
      if (ArrayBild[k].Top<MouseStartPos.Y) and (MouseStartPos.Y<(ArrayBild[k].Top+Round(breite*1.39))) then
      begin
        xdifferenz:=MouseStartPos.X-ArrayBild[k].Left;
        ydifferenz:=MouseStartPos.Y-ArrayBild[k].Top;
        Down := True;
        MousOverKarte := True;
      end;
    end;

    if MousOverKarte=False then k := k + 1;
  end;
end;

procedure TForm3.FormActivate(Sender: TObject);
begin
  ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'einstellungen.ini');
  try
    JPEG:=TJpegImage.Create; // JPEG erzeugen
    BMP:=TBitmap.Create; // BMP erzeugen
    JPEG.LoadFromFile(ExtractFilePath(ParamStr(0))+'Bilder\'+ini.ReadString('Profil','Thema','Standard')+'\main.jpg');
    BMP.Assign(JPEG);
    Image1.Picture.Bitmap:=BMP;
    Image1.SendToBack;
  finally
    ini.free;
  end;

  SetLength(ArrayExist, maxKarten);
  SetLength(ArrayBild, maxKarten);
  SetLength(ArrayBildx, maxKarten);
  SetLength(ArrayBildy, maxKarten);

  DefineKarte;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
  NeueKarte;
end;

procedure TForm3.ButtonBeendenClick(Sender: TObject);
begin
  Close;
end;

end.

nochmal zur erklärung:
momentan ist es nur so, dass wenn man auf den button klickt die images erzeugt werden und auf der fläche angezeigt werden. der zusatz bei top und left mit k*10 pixel sorgt dafür, dass optisch ein stapel auf der grafischen oberfläche entsteht.
geplant war nun, dass wenn ich auf eine karte k (das is meine variable für die karten wie ihr seht) klicke, die prozedur MousOverKarte guckt über welcher karte ich gerade mit der maus bin. k ist ja global und kann dann direkt weiterverwendet werden für das event onmousemove, wo die karte halt mit der maus mitgezogen wird.
ich muss dazusagen, dass das hin- und herziehen schon funktioniert hat, aber mit stretchdraw. da muss man aber mit fillrect oder so die schon gezeichneten karten wieder übermalen, was eine graue spur auf der grafischen oberfläche zur folge hat. möglich, dass euch da auch lösungen zu einfallen, aber ich bevorzuge die variante die ich momentan versuche umzusetzten. die events sind mir hierbei sehr wichtig, da ja viel zu programmieren ist in dem event onclik usw. nicht nur für das hin- und herziehen.

mfg Zenny