|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.01.2009, 18:05 | #1 |
Регистрация: 17.01.2009
Сообщений: 4
|
sender as..
У меня есть клас Tmyclass в нем поле imj:Timage, я создаю масив a:array[1..5] of Tmyclass, выводится 5 картинок. Задача состоит в том чтоб при нажатии на одной из картинок мне передавалась информация:имя и индекс массива.
|
18.01.2009, 13:55 | #2 |
Delphi forever
Форумчанин
Регистрация: 13.01.2009
Сообщений: 113
|
Раскажи по подробней, мож помогу, а лучше исходник выложи
Программы на заказ Delphi, Pascal.
ася: 415 253 529. Мыло: wowan141750@gmail.com. |
18.01.2009, 16:13 | #3 |
Пользователь
Регистрация: 17.01.2009
Сообщений: 18
|
....
TMyClass=class private FOnClick: TEventHandler; imj: TImage; FNum: Integer; .... public .... property OnClick: TEventHandler read FOnClick write OnClick; property Num: Integer read FNum write FNum; ..... end; .... .... constructor TMyClass.Create(...); begin imj.OnClick:=DoClick; end; ..... procedure TMyClass.DoClick(Sender: TObject); begin if Assigned(FOnClick) then FOnClick(Sender); end; ..... procedure Form1.OnFormCreate(Sender: TObject); var i: Integer; begin for i:=1 to 5 do begin a[i]:=TMyClass.Create(...); a[i].OnClick:=DoClick; a[i].Num:=i; end; end; procedure Form1.DoClick(Sender: TObject); begin lable1.Caption:=intToStr((TMyClass( Sender)).Num); end; Поидее должно работать. Сназванием сам разберёшся |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Self, Owner, Sender | Arkuz | Общие вопросы Delphi | 5 | 26.10.2008 00:00 |
TObject *Sender | sergei64_89 | Общие вопросы C/C++ | 1 | 06.06.2008 13:36 |