События для объектов динамических массивов Delphi7

[Dalagardi]

Есть динамический массив картинок(Timage), которые размещаются на панели. Как отловить по какой именно картинке кликнул пользователь? Точнее как создать/использовать событие OnClick для элементов дин. массива?

Заполнение массива:

getmem(p,sizeof(Timage)*openpicturedialog1.Files.Count);
setlength(DinP,openpicturedialog1.Files.Count);
LI:=-1;
TI:=0;
KolI:=openpicturedialog1.Files.Count;
sp:=false;
for i:=0 to openpicturedialog1.Files.Count-1 do
begin
inc(LI);
dinp[i]:=Timage.Create(panel1);
dinp[i].Stretch:=true;
dinp[i].Parent:=panel1;
dinp[i].Picture.loadfromfile(form1.OpenpictureDialog1.Files.strings[i]);
dinp[i].Height:=150;
dinp[i].Width:=150;
dinp[i].Left:=LI*170;
if sp=true then dinp[i].Top:=TI*170;
if (i mod 18=0) and (i<>0) then panel1.Height:=panel1.Height+170;
if (i mod 6 =0) and (i<>0) then
begin
dinp[i].Left:=0;
inc(TI);
dinp[i].Top:=TI*170;
LI:=0;
SP:=true;
end;
dinp[i].Tag:=i;

[Stilet]

 Procedure Tform1.ClickProc(Sender:TObject);
 begin
  TImage(Sender) - это кликнутая картинка
...
 dinp[i]:=Timage.Create(panel1);
 dinp[i].OnClick:=ClickProc;

Учти что ClickProc должен быть описан как метод. Например внутри класса TForm1 как в нем обычно описываются события разные

Между прочим это уже обсуждалось

[Dalagardi]

Я читал обсуждения, но мой IQ не дал мне все понять до конца)

[Stilet]

Ну а то что я сказал ты понял?

[Dalagardi]

Примерно, описал событие ClickProc. Элементам массива событие он клик присвоил. Только вот что дальше?

Пишет [Error] Unit1.pas(40): Unsatisfied forward or external declaration: 'TForm1.ClickProc'

[Stilet]

Так ясно.
Вот тебе полный пример

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    OpenPictureDialog1: TOpenPictureDialog;
    Button1: TButton;
    procedure FormClickImg(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var  dinp:array of timage;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormClickImg(Sender: TObject);
begin
 caption:=TImage(sender).Name;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 OpenPictureDialog1.Execute;
 SetLength(dinp,form1.OpenpictureDialog1.Files.Count);
 for i:=low(dinp) to high(dinp) do begin
    dinp[i]:=Timage.Create(self);
    dinp[i].Stretch:=true;
    dinp[i].Parent:=self;
    dinp[i].Height:=150;
    dinp[i].Width:=150;
    dinp[i].Picture.loadfromfile(form1.OpenpictureDialog1.Files.strings[i]);
    dinp[i].OnClick:=FormClickImg;
 end;

end;

end.

Смотри. Изучай. Пробуй.

[Dalagardi]

Это всё понятно, я так и сделал. Ругается на

procedure PanelClickImg(Sender: TObject);

в описании

[Dalagardi]

Все заработало, забыл написать

Tform1.PanelClickImg(sender:Tobject);