Обработка событий другой формы

[HTL]

Сделал в unit1 такой блок:

procedure test123();
begin
//Бла бла
end;

Который я запускаю в unit1 такой строкой:

test123;

А как мне его запустить с другого unit?

[Altera]

Надо в другом юните добавить в USES unit1 и просто вызывать test123. Если же и в текущем юните есть test123, то что-бы вызвать test123 из unit1 напишите

unit1.test123;

[HTL]

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

Надо в другом юните добавить в USES unit1 и просто вызывать test123. Если же и в текущем юните есть test123, то что-бы вызвать test123 из unit1 напишите

unit1.test123;

не проходит

[Altera]

Что значит не проходит. А какая у вас ситуация. Оба юнита не в одном проэкте находятся? Тогда надо писать полный путь к юниту, как в *.dpr файле

[HTL]

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

Что значит не проходит. А какая у вас ситуация. Оба юнита не в одном проэкте находятся? Тогда надо писать полный путь к юниту, как в *.dpr файле

[Error] unit2.pas(149): Undeclared identifier: 'test123'

А если написать unit1. то в подсказках будет только var

[Marsel737]

HTL, обычно я вызываю процедуры и функции другой формы вот так:

Form2.test123;

[HTL]

Marsel737, а каким боком ты форму задел? Это самодельная процедура, а не обработчик события какой нить кнопочки...

[HTL]

вот что примерно у меня в проге

Может я что сделал не так?

[Marsel737]

Если ты такой умник чё ваще здесь вопросы задаеш? Вот те пожалуста "самодельная" процедура, которая вызывается с другой формы. Но если ты её объявиш в разделе private, то никаким образом не сможеш никогда вызвать с другой формы.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private

  public
    procedure ShowMyMessage;
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.ShowMyMessage;
begin
  ShowMessage('Трататаата');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2:= TForm2.Create(Application);
  Form2.Show;
end;

end.

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.ShowMyMessage;
end;

end.

Кто так процедуры пишет???

procedure test123();
begin
Form2.Label1.Caption:='121424324123';
end;

Вот как нада:

procedure ТForm2.test123;
begin
  Label1.Caption:='121424324123';
end;

Вот те мой пример рабочий и твой:

[HTL]

Form2.Label1.Caption:='121424324123 ';

Мне так проще.

а если у меня нету форм а есть просто unit2 и unit3?