[Taddy23]

Подскажите пожалуйста -
например прога состоит из 2 модулей - unit1, unit 2
В первом описана процедура procedure1.
Как её использовать в unit2.

Понятно что в unit2 надо подключить unit1, но видимо этого не достаточно, что надо еще сделать?

[NIch]

Этого вполне достаточно, только прописывать ее (procedure1) нужно в unit1 в interface-ной части...

[Taddy23]

Cпасибо, а можно прямо пальцем тыкнуть где процедура должна быть обьявлена?

Сейчас так

Код:

unit Unit 1;

interface

uses ........;

type 
 TForm1= class (TForm)
 ...
 procedure procedure1(senderL TObject);
 ...

 private
 {}
 pablic
 {}
 end;
 var
 Form1: TForm1;

 implementation
 uses ....;
 {$R *.dfm}

Вот при такой конструкции из модуля 2 данная процедура не доступна.

[mol-Ou]

Код:

Form1.<Имя процедуры>(Sender);

так недоступно?...

[Taddy23]

да, так недоступна.
Переменные обьявленные в модуле 1 из модуля 2 доступны, а процедура нет.

[NIch]

Попробуй так...

unit Unit 1;

interface

uses ........;

type
TForm1= class (TForm)
...
private
{}
pablic
{}
end;

procedure procedure1;//воткни ее сюда

var
Form1: TForm1;

implementation
uses ....;
{$R *.dfm}