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

Вниз

Как скопировать один компонент в другой...   Найти похожие ветки 

← →
ТОлег   (2003-06-07 11:47) [0]

вопрос в следующем, создаю объект типа Edit в различных количествах,


with TEdit.Create(Self) do
begin
Parent := ScrollBox3;
Name:="Eindex"+IntToStr(k);
Text:="";
Font.Name:="TimesNewRoman";
Font.Size:=10;
Font.Style:=[fsBold];
Font.Color := clWindowText;
Left := 28;
Width := 48;
Color := clActiveBorder;
if k<6 then Top := 88*(k-1) else Top := 88*6;
end;


затем, зная имя объекта, необходимо получить хотя бы его содержимое, а лучше скопировать весь объект для дальнейшей работы с ним


if ScrollBox3.FindChildControl(st)<>nil then
begin
te:=ScrollBox3.FindChildControl(st);
if te.Text="" then tt1:=true else tt1:=false;
end;


(здесь конечно идет не соответствие типов), вопрос в том, как скопировать программно созданный объект, зная только его имя?

---

← →
Юрий Зотов   (2003-06-07 12:08) [1]

> а лучше скопировать весь объект для дальнейшей работы с ним

А зачем копировать-то? Заведите массив TEdit"ов, в нем храните ссылки на создаваемые Edit"ы - и работайте с ними, сколько нужно. Напрямую, без всяких Find"ов.

---

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

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

Наверх

Память: 0.44 MB
Время: 0.007 c