вызов процедуры дочерней формы из другого unit a

← →
erika © (2004-08-26 18:01) [0]

Здравствуйте, Господа!

Проблема в следующем:
Существует Mainform (гл. форма) Form1 and Form2 (дочерние формы). Каждая из форм создается вызовом с главной формы при помощи Application.CreateForm(Tform, Form). На Form1 есть кнопка, на ONClick которой выполняется создание нескольких документов. Эту процедуру необходимо выполнять на Form2 не создавая Form1. В Uses обоих форм прописано UNIT1 или UNIT2.
Вопрос:
Как правильно описать внешнюю процедуру описанную в unit один, для возможного ее вызова в unit2?

С уважением, ERIKA!

← →
oldman © (2004-08-26 18:04) [1]

Существует Mainform (гл. форма) Form1 and Form2 (дочерние формы).
Эту процедуру необходимо выполнять на Form2 не создавая Form1.

То ли воздух нынче пьян, то ли леший нынче рьян?
Это как?

← →
MU © (2004-08-26 18:07) [2]

то что в Form1.OnClick оформить в процедуру (XXXProc), объявить ее в interfaces секции Form1.

в Form1.OnClick написать вызов этой процедуры XXXProc
в Form2, где надо вызвать XXXProc

← →
HSolo © (2004-08-26 18:09) [3]

Оформить содержимое Form1.OnClick в виде отдельной процедуры, которую и вызывать отовсюду, откуда надо. И если эта процедура нужна нескольким формам, то лучше бы вынести ее в отдельный юнит.

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
{ Private declarations }
public
{ Public declarations }
end;

procedure XXXProc;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
XXXProc;
end;

Procedure XXXProc;
begin
//....
end;

end.

Самый тупой метод - скопируй процедуру в нужный юнит!!!

вызов процедуры дочерней формы из другого unit a Найти похожие ветки