2 Формы Delphi

[bookkc]

Есть одна форма, на ней КУЧА процедур и функций, я создал другую форму, как сделать так что бы нопка на форме №2 вызывала процедуру с первой формы?

[_-Re@l-_]

Ну, в Unit2 сделай так:

uses unit1;

А потом вызывай так:

Form2.Button1Click(Sender:TObject);
Begin
        Form1.Имяпроцедуры;
End;

[vasek123]

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

Есть одна форма, на ней КУЧА процедур и функций, я создал другую форму, как сделать так что бы нопка на форме №2 вызывала процедуру с первой формы?

Ну, например:

Form2.Button1Click(Sender:TObject);
begin
   Form1.{Имя процедуры};
end;

uses unit1;

Можно и проще сделать...

[bookkc]

Спасибо, а как сделать копию формы со всеми кнопками и т д и т п.

Не получается

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses unit1;
{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.Button1Click;
end;

end.

[vasek123]

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form1.fr;
end;

end.

Не пойму, и в чем проблема? Проверьте свой код на ошибки... Возможно на первом модуле до фига ошибок.

p.s. У меня все работает.

[bookkc]

На первой форме я вызываю вот эту процедуру, выбивает ошибку

procedure TForm1.Button1Click(Sender: TObject);
var
  ThreadId: Cardinal;
begin
  StrPCopy(proxy,ed_ProxyServer.Text); // copy the Servertext to the Proxy array
  if (cthread <> 0) then
    MessageBeep(0)
  else
    cthread := BeginThread(nil, 0, @OpenURL, PAnsiChar(urls[TButton(Sender).Tag]), 0, ThreadId);
end;

И как сделать что бы на форме 2 кнопка 1, Events был OnСlick с формы 1 Button1Click

[vasek123]

Не понял юмора, у меня все работает:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
  Form1.Button1.Click;
end;

end.

Еще раз настоятельно прошу, проверьте код!

[aleks.halk]

можно проще
и не надо никакого кода вообще писать
подключи 1ю форму ко второй т.е. выдели Form2 нажми File -> Use Unit или просто Alt + F11 и в окне выбери Unit1(или как там у тебя подписан модуль 1й формы)
затем выдели кнопку на второй форме, для которой хочешь назначить действие, и в инспекторе объектов на вкладке Events на событии onClick выбери изи списка необходимую процедуру

[bookkc]

aleks.halk , Твой метод вообще не работает... сдела как ты написал

[aleks.halk]

Что конкретно не работает?
в инспекторе обектов на вкладке Events кнопки на 2й форме видны процедуры с 1й формы?