Форум: "Основная";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];
ВнизTLabel Найти похожие ветки
← →
Silla (2003-06-20 13:14) [0]Привет мастерам!
Как мне узнать программно, есть ли на моей форме компонента Tlabel с именем Label1
Заранее спасибо за ответ.
← →
McSimm2 (2003-06-20 13:16) [1]
TLABEL(FORM1.FindComponent("LABEL" + IntToStr()))...
← →
MacroDenS (2003-06-20 13:32) [2]или так
(FindComponent("Label"+IntToStr()) as TLabel)....
← →
Anatoly Podgoretsky (2003-06-20 14:02) [3]if FindComponent("Label1`) <> NIL есть
← →
Centronix (2003-06-20 14:13) [4]
> Как мне узнать программно, есть ли на моей форме компонента
> Tlabel с именем Label1
If FindComponent("Label1`) is TLabel then...
Можно еще с десяток вариантов придумать :))
← →
Silla (2003-06-20 15:52) [5]Спасибо разобрался.
← →
Silla (2003-06-20 16:03) [6]А как теперь поменять его Caption
if MainForm.MDIChildren[i].FindComponent("Label1") <> Nil then
MainForm.MDIChildren[i].Label1.Caption := "Найдено";
Ошибка: Не объявлено Label1
Что не так?
← →
Anatoly Podgoretsky (2003-06-20 16:08) [7]McSimm2 (20.06.03 13:16)
MacroDenS © (20.06.03 13:32)
В дополнение к этому купи или скачай несколько книг по Дельфи
← →
ghg (2003-06-20 16:29) [8]TLABEL(FORM1.FindComponent("LABEL" + IntToStr("1"))).caption:="Найдено";
← →
reonid (2003-06-20 16:34) [9]>Silla © (20.06.03 16:03)
>MainForm.MDIChildren[i].Label1.Caption := "Найдено";
MDIChildren[i] возвращает TForm, у которой нет поля Label1
(А его вообще может не быть, если лэйбл создан динамически).
← →
Silla (2003-06-20 18:26) [10]>Anatoly Podgoretsky
Например есть
автор Марко Канту
"Delphi 5"
if MainForm.MDIChildren[i].FindComponent("Label1") <> Nil then
TLabel(MainForm.MDIChildren[i].FindComponent("LabelId")).Caption := "Найден";
Что делаю не так?
← →
Sandman25 (2003-06-20 18:54) [11]"Label1" <> "LabelId"
← →
Palladin (2003-06-20 19:17) [12]:) не ну как так? искать Label1 и присваивать LabelId
у меня только с похмелья такое может написатся
← →
Silla (2003-06-20 19:18) [13]Извиняюсь опечатка везде Label1 или LabelId
Undeclared identifier: "TLabel"
Missing operator or semicolon
← →
Palladin (2003-06-20 19:21) [14]это у тебя не здесь ошибка, а в строке над этим кодом...
скорее всего не поставил ;
← →
ЮЮ (2003-06-21 03:37) [15]Или в uses нет unita StdCtrls, где описан TLabel
← →
Silla (2003-06-21 12:37) [16]>ЮЮ
Спасибо.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.011 c