Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

copyr25 © (2002-09-26 11:00:00)
Уважаемые мастера! Обращаюсь к нескольким 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;

Спасибо!

TTCustomDelphiMaster (2002-09-26 12:39:00) [1]
Назначить этот обработчик дл всех Image

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

Mike Kouzmine (2002-09-26 12:12:00) [2]
Зачем огород городить?
case StrToInt(Copy((Sender as TImage).Name,6,Length((Sender as TImage).Name) - 5)) of
0 :
1 :

Старый паскалист (2002-09-26 12:04:00) [3]
Храни индекс в тэге, и в обработчике события
Idx := (Sender as TComponent).Tag

Mike Kouzmine (2002-09-26 12:00:00) [4]
Напиши один для всех, а по имени определяй что делать

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »