Показать сообщение отдельно
  #6  
Старый 21.03.2011, 23:25
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

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

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.
Ответить с цитированием