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

Posted by Chas under Топик-обзор

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

evg_m:

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

procedure Tform1..ImageXclick(sender: TObject);

begin

  showmessage( (Sender as Timage).name);

end;

MyLastHit:

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

for i:=1 to 10 do

if i<>8 then

MyProcedure(FindComponent('Label'+inttostr(i)));

тема на форуме

Похожие статьи

• Компонент Image Slide Show
• Как можно задать собственный стиль для радиобатона безо всяких альфа скинов?
• Упорядоченное расположение компонентов на форме
• Анимация GIF в делфи
• Переход по компонентам используя кнопку tab?
• Как убрать Access Violation при Destroy компонента?
• RxTrayIcon
• Как сделать слежение за буфером обмена в Delphi?
• Drag & Drop компоненты
• Перемещение TImage по форме. Как это сделать?