процедура к кнопке на другой форме

[maloun]

скриптом открыл форму(Form3) создал там кнопку(Btn:TButton) написал в Unit3 процедуру по клику на кнопку, которая использует объекты первой формы(Form1) но она не работает, пробовал писать в Unit1 но компилятору не нравится. помогите
скрипт вообще не реагирует на то что в процедуре!

[Sibedir]

скриптом открыл форму(Form3)

код в студию

создал там кнопку(Btn:TButton)

код в студию

написал в Unit3 процедуру по клику на кнопку, которая использует объекты первой формы(Form1)

код в студию

пробовал писать в Unit1

код в студию

но компилятору не нравится

С ним спорить безполезно

помогите

Поможем, обязательно.

[maloun]

форма уже была создана без меня открыл я её так Form3.Show;
кнопку создал вот так:
var
btn:TButton;
...
Btn:=TButton.Create(Form3.PageContr ol1);
Btn.Parent:=Form3.PageControl1;
________

Процедура по клику на кнопку из Unit3 вот такого вида:

procedure TForm3.BtnClick(Sender: TObject);
begin
Memo1.text:='1';
end;

он не реагирует вообще не на что в этой процедуре
ни на Memo1.text:='1';
ни на Form3.Memo1.text:='1';
ни на Form3.PageControl1.Memo1.text:='1';
ни на Form1.Memo1.text:='1';

________

Процедура по клику на кнопку из Unit1 такая же, но ему не нравится TForm3 по тому что это Form1

procedure TForm1.BtnClick(Sender: TObject);
begin
Form1.Memo1.text:='1';
end;

хотя вот так не пробовал, считаю это не будет работать на Form1 нету Btn и процедура не должна работать, в любом случае...
Memo1.text:='1';
Form3.Memo1.text:='1';
Form3.PageControl1.Memo1.text:='1';
Form1.Memo1.text:='1';

______

Нету другого способа написать процедуру для клика по кнепке которая на другой форме?

[Sibedir]

Btn:=TButton.Create(Form3.PageContr ol1);
Btn.Parent:=Form3.PageControl1;
Btn.OnClick := Form3.BtnClick;

Или

Btn.OnClick := Form1.BtnClick;

Так тоже работать будет. Кнопке пофиг откуда процедуру в OnClick запихали. Главное что бы это была procedure of class. Можно даже

type
  TMyObject = class
    procedure BtnClick (Sender: TObject);
  end;
var
  MyObject: TMyObject;
...
Btn.OnClick := MyObject.BtnClick;

[maloun]

не смотря на то что процедура уже стоит в обоих юнитах

procedure TForm3.BtnClick(Sender: TObject);

ему не нравится

Btn.OnClick:=TForm3.BtnClick

говорит не знает что такое BtnClick

[maloun]

ему не нравится

MyObject

в

Btn.OnClick:=MyObject.BtnClick;

он о5 не ведает что это такое
при этом процедуры написанны

[Sibedir]

ему не нравится MyObject

Сори. См. изменения выше.

не смотря на то что процедура уже стоит в обоих юнитах

procedure TForm3.BtnClick(Sender: TObject);

Это как? У вас что TForm3 в 2-х юнитах описан?

ему не нравится

Btn.OnClick:=TForm3.BtnClick

говорит не знает что такое BtnClick

Выложи описание TForm3

TForm3 = class (TForm)
  ???
end;

[maloun]

Это как? У вас что TForm3 в 2-х юнитах описан?

из обоих пробовал, откуда надо - не знаю

был так

type
  TForm3 = class(TForm)
    PageControl1: TPageControl;
    procedure BtnClick(Sender: TObject);

стал так

  type
  TMyObject = class
    procedure BtnClick (Sender: TObject);
    end;

а это то что тогда??
[Error] Unit1.pas(200): Incompatible types: 'TNotifyEvent' and 'Procedure'

[Sibedir]

из обоих пробовал

Да не может

procedure TForm3.BtnClick(Sender: TObject);

Находится в модуле, в котором не описан сам TForm3.

[maloun]

и что теперь делать?

вот с этим к примеру
[Error] Unit1.pas(200): Incompatible types: 'TNotifyEvent' and 'Procedure'

мозги на вынос!