Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

вызов процедуры дочерней формы из другого unit'a [D6, Win95/98]

erika © (2004-08-26 18:01:00)
Здравствуйте, Господа!

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

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

oldman (2004-08-26 18:19:00) [1]
Самый тупой метод - скопируй процедуру в нужный юнит!!!

MU (2004-08-26 18:10:00) [2]
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.

HSolo (2004-08-26 18:09:00) [3]
Оформить содержимое Form1.OnClick в виде отдельной процедуры, которую и вызывать отовсюду, откуда надо. И если эта процедура нужна нескольким формам, то лучше бы вынести ее в отдельный юнит.

MU (2004-08-26 18:07:00) [4]
то что в Form1.OnClick оформить в процедуру (XXXProc), объявить ее в interfaces секции Form1.

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

oldman (2004-08-26 18:04:00) [5]
Существует Mainform (гл. форма) Form1 and Form2 (дочерние формы).
Эту процедуру необходимо выполнять на Form2 не создавая Form1.

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »