Как получить доступ к процедурам объекта, не указывая его имя?

[Freddy_Kruger]

Привет всем от очередного быдлокодера.
Сперва пояснения.
Есть несколько TImage на форме. При клике по каждому вызывается абсолютно одинаковая процедура, за исключением того, что меняется имя самого TImage - Image1, Image2, Image3 и т.д. Ну и вопрос: так как в дельфи получить доступ в объекту и его процедурам, не используя имя, учитывая только, что именно в этот момент по нему кликают?

[MyLastHit]

Что то не понял. Можно пример? Для этого есть ключевое слово is.
if (sender is Tчототам) then делать чототам. Те если был клик по какой нибудь любой кнопке то
Имя сендера получается ключевым словом (Sender as Tbutton). Те при клике по какой-то кнопке вам надо работать с ней вцелом:

if (sender is TButton) then   //если если какая то кнопка обратилась к данной процедуре
begin
(sender as Tbutton).hide;  //то эту кнопку спрятать
MyProc(sender as TButton);// и выполнить мою процедуру c ней
end;

[evg_m]

всем Image в качестве обработчика Onckick назначается ОДНА и таже процедура

procedure Tform1..ImageXclick(sender: TObject);
begin
  showmessage( (Sender as Timage).name);
end;

sender это ссылка на объект источник события.

[Freddy_Kruger]

Спасибо за оперативность, но по-моему не катит.

Пример... эээ...

Ну например:

procedure TMainForm.ButtonXClick(Sender: TObject);
begin
ButtonX.Caption:='is Button X';
end;

Вместо X число от 1 до 100000000.
Хотелось бы назначить одну общую (и довольно длинную) процедуру как-то сразу на всех, да так, чтобы не пришлось каждому баттону\имейджу\чему-нибудь её отдельно прописывать.

evg_m
Так как через sender вызывать процеду TImage? Canvas, picture и всё остальное?

[Freddy_Kruger]

Всё, всем спасибо. Ждите вечером альфа-версию моего SuperTextEditor.

[evg_m]

Так как через sender вызывать процеду TImage? Canvas, picture и всё остальное?

а попробовать?

[MyLastHit]

Ааа, ну понятно. Для этого есть FindComponent.
Пример назначения одной процедуры всем Label1, Label2,...,Label10 кроме Label 8 например:

for i:=1 to 10 do
if i<>8 then
MyProcedure(FindComponent('Label'+inttostr(i)));

[Freddy_Kruger]

MyLastHit
Обана... Ещё раз спасибо. Спасибище!

[evg_m]

Сообщение от MyLastHit

Пример назначения одной процедуры всем Label1, Label2,...,Label10 кроме Label 8 например:

for i:=1 to 10 do
if i<>8 then
MyProcedure(FindComponent('Label'+inttostr(i)));

ЭТО НЕ НАЗАЕНИЕ процедуры обрабртчики. ПРи настоящем Клике ничего подобно выполнено НЕ БУДЕТ.
а ПРИМЕННИЕ (вызов процедуры) для всех подходящих объектов
НАЗНАЧЕНИЕ процедуро обработчиков событий делается немного не так.

for i:=1 to 10 do
if i<>8 then
FindComponent('Label'+inttostr(i)) as TLabel).Onclick:=MyProcedure;

Теперь при любом Клике на Label 1-7,9-10 (кроме 8) БУДЕТ выполняться
MyProcedure.

[eduard93]

Чтобы уж окончательно добить вопрос: http://www.delphikingdom.com/asp/vie...?catalogid=342