Помогите решить проблему начинающему.

Есть 3 формы и 3 соответствующих им модуля. В первом объявлена глобальная запись. Поля записи должны формироваться во 2 и 3 форме (модуле). Модули, вроде бы связаны, однако поля и переменные, сформированные во 2 модуле не видны в третьем и т.д. Как быть?

unit uFind;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons, DBCtrls, ComCtrls, Grids, DBGridEh, ExtCtrls,
 PropStorageEh;

type
 TfmSpisFilter = class(TForm)
   sbFilter: TStatusBar;
   Panel1: TPanel;
   DBGridFilter: TDBGridEh;
   Panel2: TPanel;
   Label1: TLabel;
   Label2: TLabel;
   cbFilter2: TComboBox;
   edFind: TEdit;
   bbFilter: TBitBtn;
   bbCancelFilter: TBitBtn;
   bbOk: TBitBtn;
   Label4: TLabel;
   Label3: TLabel;
   Label5: TLabel;
   Splitter1: TSplitter;
   PropStorageEh1: TPropStorageEh;
   Bevel1: TBevel;
   Bevel2: TBevel;
   Bevel3: TBevel;
   procedure FormKeyDown(Sender: TObject; var Key: Word;
     Shift: TShiftState);
   procedure bbFilterClick(Sender: TObject);
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
   procedure DBGridFilterDrawColumnCell(Sender: TObject; const Rect: TRect;
     DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
   procedure FormCreate(Sender: TObject);
   procedure bbCancelFilterClick(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 добавленные здесь переменные, процедуры и функции будут видны из всех модулей
 vMyVar:Variant;
 end;

var
 fmSpisFilter: TfmSpisFilter;

а можно здесь
 vMyVar:Variant;
 vFind: Integer;
 vFieldName: String;

implementation


в другом модуле

Код

fmFind.vMyVar:=...

Это сообщение отредактировал(а) dsergey - 11.10.2004, 13:15

а если нужно обращаться к компонентам типа editN то нужно перед ней указать форму на которой она расположена к примеру:
FormN.EditM.<какоенить свойство>, где N, M соответствующие номера формы и компоненты

Спасибо, всё функционирует.