Cобытия компонент по индексу?

← →
copyr25 © (2002-09-26 11:00) [0]

Уважаемые мастера! Обращаюсь к нескольким Image:
var
Ima: TComponent;

ну и дальше, например, так:

for img:=3 to 26 do
begin
(Ima as TImage).Picture.LoadFromFile(S[img-3]);
TJPEGImage((Ima as TImage).Picture.Graphic).Scale:=TJPEGScale(3);
(Ima as TImage).Width:=TJPEGImage((Ima as TImage).Picture.Graphic).Width;
(Ima as TImage).Height:=TJPEGImage((Ima as TImage).Picture.Graphic).Height;
end;

Это все понятно, это все работает.
А вот как через индекс сделать "события"
к этим компонентам? Никому не приходилось?
И вообще, можно? Т.е. можно ли "вставить"
индекс обращения в заголовок процедуры?
Уж очень скучно писать для каждой? Ну, например,

procedure TForm1.Image9Click(Sender: TObject);
begin
...
end;

procedure TForm1.Image10Click(Sender: TObject);
begin
...
end;

Спасибо!

← →
Mike Kouzmine (2002-09-26 12:00) [1]

Напиши один для всех, а по имени определяй что делать

← →
Старый паскалист (2002-09-26 12:04) [2]

Храни индекс в тэге, и в обработчике события
Idx := (Sender as TComponent).Tag

← →
Mike Kouzmine (2002-09-26 12:12) [3]

Зачем огород городить?
case StrToInt(Copy((Sender as TImage).Name,6,Length((Sender as TImage).Name) - 5)) of
0 :
1 :

Назначить этот обработчик дл всех Image

procedure TForm1.Image1Click(Sender: TObject);
var
ClickImage: TImage;
begin
ClickImage := TImage(Sender);
ClickImage.Height := ClickImage.Height div 2;
...
end;

Cобытия компонент по индексу? Найти похожие ветки