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

Вниз

Обращение к свойствам компонентов генерируя строку с именем его   Найти похожие ветки 

 
CrossOut   (2004-07-27 18:46) [0]

Можно ли, например, обратится к свойству элемента Edit генерируя имя этого компонента, Находящегося в матрице из таких компонентов.


 
Ega23 ©   (2004-07-27 18:48) [1]

Можно.

for i:=0 to ControlCount-1 do
if (Controls[i] is TEdit) then
  if (Controls[i] as TEdit).Name=Твоё_Имя then
    ............


 
VMcL ©   (2004-07-27 18:53) [2]

>>Ega23 ©  (27.07.04 18:48) [1]

for i := 0 to ControlCount - 1 do
  if Controls[i] is TEdit then
    if TEdit(Controls[i]).Name = Твоё_Имя then


P.S. Почему "Твоё_Имя", а не "ТвояФамилия"? :)


 
CrossOut   (2004-07-27 18:53) [3]

Не понял... Что за Control?


 
Ega23 ©   (2004-07-27 18:57) [4]

if TEdit(Controls[i]).Name = Твоё_Имя then

А разница?


 
CrossOut   (2004-07-27 19:02) [5]

Как узнать номер Edit"а?


 
sniknik ©   (2004-07-27 23:06) [6]

> А разница?
с проверкой и прямое приведение к типу, быстрее, а проверка не нужна была уже.

> Как узнать номер Edit"а?
ууу, как все запушено. а разве есть номер? хочеш, пронумеруй, есть свойство tag для пользователей ;о). а вот то что ты считаеш номером (скорее всего), просто часть имени.


 
TopT   (2004-07-27 23:47) [7]

Есть метод
function FindChildControl(const ControlName: string): TControl;
Я прабда не помню с какой версией Delphi он появился, но в пятой помойму уже был. И незачем цикл организововать, все уже сделано за нас :)



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

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

Наверх




Память: 0.45 MB
Время: 0.035 c
4-1088418091
Denis_Visma
2004-06-28 14:21
2004.08.08
Автоклик на форме!!! не кликает!!!!


6-1086785960
IllusoryOrion
2004-06-09 16:59
2004.08.08
Замена стандартных страниц


3-1089392505
Piero
2004-07-09 21:01
2004.08.08
параметр процедуры - таблица


1-1090786815
Anton Sh
2004-07-26 00:20
2004.08.08
Насчёт пиктограмм


4-1088081391
S.A.S.
2004-06-24 16:49
2004.08.08
шина PCI





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