Показать сообщение отдельно
  #7  
Старый 15.03.2010, 16:02
mol-Ou mol-Ou вне форума
Прохожий
 
Регистрация: 15.03.2010
Сообщения: 3
Репутация: 10
По умолчанию

У меня так:

Код:
unit Unit2;

interface

uses....

type
  TFrame2 = class(TFrame)
........................
procedure BitBtn1Click(Sender: TObject);

private
......
public
......
end;

implementation

uses Unit1;

{$R *.dfm}
// далее описание процедур, и вот процедура нажатия на кнопку:
procedure TFrame2.BitBtn1Click(Sender: TObject);
var
.......
begin
...........
end;

а вызываю я её из меню формы1, соответственно Unit1 :
Код:
procedure TForm1.N2Click(Sender: TObject);
begin
Form1.Frame21.BitBtn1Click(Sender);
end;

Попробуй в uses описать их друг у друга.
в Unit1:
Код:
Uses Unit2;
B Unit2:
Код:
Uses Unit1;
Ответить с цитированием