Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.01;
Скачать: CL | DM;

Вниз

у динамич. созд. TImage отловить событие onCliсk и получть его им   Найти похожие ветки 

 
k-sergey   (2004-07-19 22:01) [0]

Динамически создаю Timage (image1 - image 60...)
мне нужно отловить событие onCliсk и узнать при этом имя TImage по которому кликнули...???


 
Рыба ©   (2004-07-19 22:09) [1]

При создании присваивай обработчик.

Image1 := TImage.Create(Form1);
Image1.OnClick := OnImage1Clicke;

Когда сработает сам обработчик, будет ясно кого кликали.


 
Palladin ©   (2004-07-19 22:11) [2]

Побыть немножко добрым, чтоли....

TForm1=Class...
Private
 Procedure OnCreatedImageClick(Sender:TObject);
...

Procedure TForm1.OnCreatedImageClick;
Begin
If Sender Is TImage Then Memo1.Lines.Add("Ты долбанул по ""+TImage(Sender).Name+""");
End;

...
Image[N].OnClick:=OnCreatedImageClick;
....

Только попробуй что нибудь спросить!
Отвечу...


 
k-sergey   (2004-07-19 22:26) [3]

Огромное спасибо!



Страницы: 1 вся ветка

Текущий архив: 2004.08.01;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.04 c
1-1089845649
Vetalich
2004-07-15 02:54
2004.08.01
Создание папки


14-1090016450
KilkennyCat
2004-07-17 02:20
2004.08.01
Статистика опроса, проведенного Rouse_ ©


3-1089282948
Tempo
2004-07-08 14:35
2004.08.01
Как программно добавить данные в DBGrid?


4-1087321937
juiceman
2004-06-15 21:52
2004.08.01
адрес оконной функции


14-1089915956
Piter
2004-07-15 22:25
2004.08.01
Что на улице творится... ужас!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский