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

Вниз

Выход на свойства компонента, имея его имя   Найти похожие ветки 

 
VID ©   (2007-12-31 16:03) [0]

Доброго времени суток!
Уважаемые мастера, у меня такой вопрос. У меня на форме лежат несколько TImage. Я знаю имя одного из них. Как мне выйти на свойства этого компонента?

Примерно:
- на форме - Image1, Image2, Image3
- я знаю, что нужный мне компонент называется Image2, т.е. я знаю значение параметра Name у нужного мне компонента
- возможности обращения к свойствам путем обычного Image2.Tag := ... нет, т.к. это имя будет вариироваться.

Заранее благодарен за помощь.
С наступающим Новым годом вас!


 
DrPass ©   (2007-12-31 16:07) [1]

(FindComponent("Image1") as TImage).Tag:=


 
VID ©   (2007-12-31 16:11) [2]

Спасибо большое! Сейчас буду пробовать.


 
VID ©   (2007-12-31 16:14) [3]

Все работает супер! Спасибо!!!!


 
DmT   (2008-01-01 17:41) [4]

есть у меня попупменю у которого пункты должны выполнять одну и туже процедуру, но с разными параметрами(прописаны в свойстве Tag)
как реализовать?
*писать для каждого пункта отдельно не хочется


 
sniknik ©   (2008-01-01 17:56) [5]

procedure TForm1.N1Click(Sender: TObject);
begin
 ShowMessage(IntToStr((Sender as TMenuItem).Tag));
end;


 
DmT   (2008-01-01 19:08) [6]

спс



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

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

Наверх





Память: 0.46 MB
Время: 0.007 c
3-1190114648
Oleg_teacher
2007-09-18 15:24
2008.01.27
Динамическое создания поля в Парадоксе


2-1199296893
Степан
2008-01-02 21:01
2008.01.27
Изменение системного времени


2-1198831817
Ega23
2007-12-28 11:50
2008.01.27
ExcelWorkbook.WriteReserved


1-1192801595
Prohodil Mimo
2007-10-19 17:46
2008.01.27
Можно ли изменить значения цвета во время работы приложения.


1-1193207699
Unknown user
2007-10-24 10:34
2008.01.27
Как заставить TCustomWinSocket не генерить исключения?





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