Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.013 c