Скачать: CL | DM;

вызов процедуры дочерней формы из другого 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 в виде отдельной процедуры, которую и вызывать отовсюду, откуда надо. И если эта процедура нужна нескольким формам, то лучше бы вынести ее в отдельный юнит.

---

← →
MU ©   (2004-08-26 18:10) [4]

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.

---

← →
oldman ©   (2004-08-26 18:19) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c