Вы не сможете сделать это напрямую и "визуально", но если вы не возражаете
против нескольких строк кода, то я покажу как это может быть просто:
| |
|
type
TForm1 = class(TForm)
...
public
images: array [1..10] of TImage;
...
end;
procedure TForm1.FormCreate(...);
var i: integer;
begin
...
for i := 1 to 10 do begin
images[i] := TImage.Create(self);
with images[i] do begin
parent := self;
tag := i; { это облегчит идентификацию
изображения }
... установите другие необходимые свойства,
например:
OnClick := MyClickEventHndlr;
end;
end;
... end;
|
Для того, чтобы убедиться, что все модули в секции "uses" установлены
правильно, бросьте на форму один такой динамический компонент, и затем удалите
его, или установите его видимость в False. Более сложный способ заключается в
разработке собственного компонента, делающего описанное выше. | 
