Как программно создать объект на другой форме?

@Talkoflights · Регистрация: 23.09.2012

Author24 — интернет-сервис помощи студентам

Добрый вечер!
Есть код, который должен создать компонент Lbl на другой форме(form4,lbl на ней объявлен), но код выдает ошибку:

Delphi

procedure TForm3.btn4Click(Sender: TObject);
const     colsv=34;
colsb=12;
begin
Form4.Lbl.Create(self);
Form4.Lbl.Font.Size:=14;
Form4.Lbl.Caption:='Êîìïîíåíò òèïà TLabel';
path:='Names\label.txt';
add(path,2,colsv,colsb);
end;

Помогите пожалуйста!

@FIL · 14.05.2013, 22:54

Неважно где он объявлен.
Создается компонент так:

Delphi

1	Lbl := TLabel.Create(Self);

а то, где он будет находиться определяется так:

Delphi

1	Lbl.Parent := Form4;

@volvo · 14.05.2013, 22:55

Parent кто буде назначать? Без него твой лейбл нигде отображаться-то не будет.

Delphi

with TLabel.Create(Form4) do // тьфу, скопировал твой же вариант
begin
   Parent := Form4;
   Font.Size:=14;
   Caption:='Компонент типа TLabel';
end;

@Talkoflights · 14.05.2013, 22:56 **[ТС]**

Сообщение от FIL

Неважно где он объявлен.
Создается компонент так:

Delphi

1	Lbl := TLabel.Create(Self);

а то, где он будет находиться определяется так:

Delphi

1	Lbl.Parent := Form4;

Выдает ошибку.

Delphi

1 2	Form4.Lbl.Create(Self); Form4.Lbl.Parent:=Form4;

Не работает.

@cotseec · 14.05.2013, 22:57

Сообщение от Talkoflights

Lbl на другой форме(form4,lbl на ней объявлен)

в чем смысл таких телодвижений? и как метка объявлена (просто как переменная типа TLabel или брошен компонент на форму4)? в любом случае создается так:

Delphi

1	lbl:=TLabel.Create(self);

и у визуальных объектов необходимо еще определять своство Parent

Добавлено через 53 секунды

Сообщение от Talkoflights

Выдает ошибку.

так и пишет "Ошибка"?

@Talkoflights · 14.05.2013, 22:59 **[ТС]**

Кину проект:
Смотрим 3-ю форму.

@Talkoflights · 14.05.2013, 23:00 **[ТС]**

Сообщение от cotseec

в чем смысл таких телодвижений? и как метка объявлена (просто как переменная типа TLabel или брошен компонент на форму4)? в любом случае создается так:

Delphi

1	lbl:=TLabel.Create(self);

и у визуальных объектов необходимо еще определять своство Parent

Добавлено через 53 секунды

так и пишет "Ошибка"?

Я сбросил проект, смотрите выше.
На форму не брошена, просто объявлена.

@FIL · 14.05.2013, 23:06

Ты вообще читаешь, что тебе пишут?
Исправь:

Delphi

1	Form4.Lbl := TLabel.Create(Self);

и все заработает.

@Talkoflights · 14.05.2013, 23:08 **[ТС]**

Сообщение от FIL

Ты вообще читаешь, что тебе пишут?
Исправь:

Delphi

1	Form4.Lbl := TLabel.Create(Self);

и все заработает.

Тьфу, черт! Не сплю вторые сутки, проект дописываю. Спасибо, что направили мой полудохлый мозг.

@volvo · 14.05.2013, 23:26

Сообщение от Talkoflights

и все заработает.

А потом он удалит форму Form3, и все рухнет. Не надо назначать Onwer-а отличного от Parent-а...

@FIL · 15.05.2013, 09:05

Сообщение от UI

А потом он удалит форму Form3, и все рухнет.

Возможно, но в данном проекте при закрытии Form3 ничего не происходит.

Talkoflights, у тебя при закрытии всех форм проект остается в памяти висеть.
Добавь, например:

Delphi

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.Terminate;
end;

@volvo Супер-модератор 32991 / 21297 / 8180 Регистрация: 22.10.2011 Сообщений: 36,591 Записей в блоге: 8
	14.05.2013, 23:26	10
	Сообщение от Talkoflights и все заработает. А потом он удалит форму Form3, и все рухнет. Не надо назначать Onwer-а отличного от Parent-а... 0