Процедуру с другой формы

[Kara1989]

Как можно вызвать процедуру с другой формы. Не хочется использовать dll...

Код во второй форме, где находится сама процедура, надо вызвать его в первой (именно procedure ShowMess):

unit UMain;

interface

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

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

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure ShowMess;
begin
  Application.MessageBox('Все успешно!!','Внимание',MB_OK);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
ShowMess;
end;
end.

[veniside]

форма — это модуль, модули можно использовать:

uses
  UMain;

а чтобы ShowMess() была видна для других, её объявление следует поместить в разделе interface.

[Kara1989]

Не получается что-то.
Может посмотрите? Выложил исходник...

Не получается что-то.
Может посмотрите? Выложил исходник...

[veniside]

объявление процедур в разделе interface должно идти после uses, а не перед. Примерно так:

unit UMain;

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;

procedure ShowMess();

var
  Form2: TForm2;

implementation

[Kara1989]

Все, работает. Спасибо большое!