[Goodle]

Добрый день! Немогли бы вы подсказать:
У меня создана форма (Form1), к ней стандартом привязан Unit1. Как создать объект из этого юнита я знаю,

Код:

1 2 3 4 5 6 7

function NewLab(fm1:TForm; lc:String):boolean; var nLab:TLabel; begin nLab:=TLabel.Create(fm1); nLab.Parent:=fm1; nLab.Caption:=lc; end;

но застопорил меня другой момент когда присоединяю unit2 и из него по стандартной схеме пытаюсь создать объект на форм1 то Делфи меня посылает. Я понимаю что нужно где-то адресацию задать, но как пока не догоню...
функция должна располагаться в Unit2...

[Black Raider]

в unit2 сделать так:

В разделе public

Код:

1	function NewLab(fm1:TForm; lc:String):boolean;

и

Код:

1 2 3 4

function TForm2.NewLab(fm1:TForm; lc:String):boolean; begin .... end;

[Goodle]

Сообщение от Black Raider

в unit2 сделать так:

В разделе public

Код:

и

Код:

второй формы нет, есть еще один юнит и из него надо создать объект на единственную форм1...

[lmikle]

Код:

1 2 3 4 5 6 7 8 9 10 11

unit Unit2;   ...   uses Unit1;   ...   label := TLabel.Create(Form1); label.Parent := Form1; ...

[Goodle]

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

Код:

а как эту ф-ю вызвать из нажития баттон1 на форм1?
наглеть не хочу просто реально не догоняю...

[lmikle]

Ну точно так-же, как ты обращаешься к первому модулю из второго, так и обратно:

Unit2:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

unit Unit2;   interface   procedure CreateControl;   ...   implementation   uses   Unit1;   procedure CreateControl; var   label : TLabel; begin   label :=  TLabel.Create(Form1);   ... end;   end.

Unit1:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

unit Unit1   ...   implementration   uses   Unit2;   procedure TForm1.Button1Click(Sender : TObject); begin   CreateControl; end;   end.

[Goodle]

Понял))) спасибо))