[Goodle]

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

Код:

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

Код:

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

и

Код:

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

[Goodle]

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

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

В разделе public

Код:

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

и

Код:

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

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

[lmikle]

Код:

unit Unit2;

...

uses Unit1;

...

label := TLabel.Create(Form1);
label.Parent := Form1;
...

[Goodle]

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

Код:

unit Unit2;

...

uses Unit1;

...

label := TLabel.Create(Form1);
label.Parent := Form1;
...

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

[lmikle]

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

Unit2:

Код:

unit Unit2;

interface

procedure CreateControl;

...

implementation

uses
  Unit1;

procedure CreateControl;
var
  label : TLabel;
begin
  label :=  TLabel.Create(Form1);
  ...
end;

end.

Unit1:

Код:

unit Unit1

...

implementration

uses
  Unit2;

procedure TForm1.Button1Click(Sender : TObject);
begin
  CreateControl;
end;

end.

[Goodle]

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