|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Получение доступа к объекту
Всем привет.
Необходимо обратиться к нажатому объекту (например Label). Их много, а хочется написать процедурку. Как можно получить хоть какие-нибудь идентификаторы нажатого объекта?спасибо. |
#2
|
||||
|
||||
Код:
type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; procedure LabelClick(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; procedure TForm1.FormCreate(Sender: TObject); begin Label1.OnClick:=LabelClick; Label2.OnClick:=LabelClick; Label3.OnClick:=LabelClick; Label4.OnClick:=LabelClick; Label5.OnClick:=LabelClick; end; procedure TForm1.LabelClick(Sender: TObject); begin ShowMessage(TLabel(Sender).Caption); end; Пишу программы за еду. __________________ |
#3
|
|||
|
|||
Спасибо, помогло!
|