Как поставить OnMouseDown для создаваемых Image

[Zeraim]

Не знаю правильно ли назвал тему. В общем если выбрать компоненты в структуре и поставить какое-нибудь событие, то оно будет срабатывать для всех выбранных компонентов. А если я создаю компоненты по ходу работы программы, как это сделать ?

[mutabor]

Создаешь метод класса, например формы TForm1 - это обязательное условие, обычные функции не катят, делаешь его совместимым с нужным событием (параметры имеются ввиду), и назначаешь его свойству созданного Image (в данном случае OnMouseDown). Теперь этот метод будет вызываться по событию.

[Zeraim]

Вот так правильно ? Просто вдруг что-то сделал не так и потом возникнут проблемы ?

type
  TES = class(TForm)
    ...
    procedure ImgClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation
{$R *.dfm}
procedure TES.FormCreate(Sender: TObject);
begin
...
OnClick := ImgClick;
end;
...
(FindComponent('TImage'+IntToStr(numbImg)) as TImage).OnClick := ImgClick;
...

[mutabor]

Там ты событию формы назначаешь. Вобщем так нужно:

type
  TForm1 = class(TForm)
    ...
    procedure ImgClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MyImage: TImage;

implementation

...
MyImage:=TImage.Create(Form1);
MyImage.Parent:=Form1;
MyImage.OnClick:=ImgClick;
...

procedure TForm1.ImgClick(Sender: TObject);
begin
  //тут код на событие
end;