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"

:) не ну как так? искать Label1 и присваивать LabelId
у меня только с похмелья такое может написатся

Извиняюсь опечатка везде Label1 или LabelId
Undeclared identifier: "TLabel"
Missing operator or semicolon

это у тебя не здесь ошибка, а в строке над этим кодом...
скорее всего не поставил ;

Или в uses нет unita StdCtrls, где описан TLabel

>ЮЮ
Спасибо.

TLabel Найти похожие ветки