dynamische Timage onclick

[sniper_w]

Daraus wird nichts.TNotifyEvent = procedure (Sender:TObject) of object und ihr bietet nurTNotifyEvent = procedure (Sender:TObject); Es muss also so deklariert sein:

Delphi-Quellcode:

procedure TFomr1.MyOnClick(Sender:TObject);
begin
 case TComponent(Sender).Tag of
  1:;
  2:;
  // usw....
 end;
end;

EDIT: und so sollte man die Images erstellen:

Delphi-Quellcode:

procedure TForm1.ErstelleImages(ImgCount:integer);
begin
  SetLength( bild, imgCount);
  for i:=0 to ImgCoun-1 do
  begin
    bild[i] := Timage.Create(Self);
    with Bild[i] do
    begin
      Parent := Self;
      // andere eigenschaften zuweisen
      Tag := i; // <<<<<-------SEHR WICHTIG !!!
      OnClick := MyOnClick;
    end;
  end;
end;