Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2006.03.12;
Скачать: [xml.tar.bz2];

Вниз

Как узнать какой обьет выделен.   Найти похожие ветки 

 
JIurasdfsdf   (2006-02-07 21:33) [0]

Есть форма и на ней находится несколько обьектов и одна процедура, обрабатывающая щелчок на них.  Как мне узнать какой из обьектов выбран (например кнопка или текстовое поле), и как есть к примеру выбарана именно кнопка, воспользоватьс свойствами, присущими именно кнопе (т.е. которые на обьект текстового поля не распространяются)?


 
Джо ©   (2006-02-07 21:35) [1]

> Как мне узнать какой из обьектов выбран (например кнопка
> или текстовое поле),

ActiveControl.

> и как есть к примеру выбарана именно кнопка, воспользоватьс
> свойствами, присущими именно кнопе (т.е. которые на обьект
> текстового поля не распространяются)?

Используй оператор is для проверки класса. Или конкретизируй вопросю


 
kblc ©   (2006-02-07 21:35) [2]

Используй Sender - это и есть указатель на то, что именно должно обрабатываться.
 if Sender is TComboBox then
 with Sender as TComboBox then
 begin
 end;


 
evvcom ©   (2006-02-08 08:51) [3]


> if Sender is TComboBox then
>  with Sender as TComboBox then

если тип объекта уже проверил (is), то приведение через as лишнее. Оптимальнее так TComboBox(Sender). Через as, имхо, есть смысл приводить, если по логике работы программы Sender может быть только к примеру TComboBox, но ты допускаешь, что кто-то (может даже ты сам) возможно это когда-нибудь забудешь и не учтешь. В этом случае разработчик должен словить exception, и поправить этот момент.



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

Форум: "Основная";
Текущий архив: 2006.03.12;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.189 c
3-1137783314
olevacho_
2006-01-20 21:55
2006.03.12
Ошибка cannot transliterate character between character sets


9-1126068360
Ищущий
2005-09-07 08:46
2006.03.12
экспорт анимации из Blender a


1-1139465488
Tavor
2006-02-09 09:11
2006.03.12
RTF -> WORD


2-1141027882
veb
2006-02-27 11:11
2006.03.12
Delphi.NET


6-1133169129
312Kbps
2005-11-28 12:12
2006.03.12
TWebBrowser загрузить HTML код !





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский