![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Вообщем проблема такая в методе TForm1.FormCreate я создаю изображения их там 52 штуки, каждому изображению присваиваю обработчик Image.OnClick:=ImageClick, мне нужно чтобы в Edit по клику на определенном изображении выводились данные связанные с именем image по которому кликнули.
Имена присваивает Delphi, на форме других изображений нет. вообщем что-то вроде этого: Код:
procedure TForm1.ImageClick(Sender: TObject); begin Edit1.Text:=this.image.name; end; |
#2
|
||||
|
||||
![]() Код:
procedure TForm1.ImageClick(Sender: TObject); begin Edit1.Text:=(Sender as TImage).name; end; Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#3
|
||||
|
||||
![]() Sender - отправитель, на него завязывайся.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |