Как передавать данные между формами в Delphi?

Question

Это может показаться немного новичком, но у меня действительно проблемы с ним. У меня есть форма (а не основная) для получения от пользователя разных данных, и я хочу передать их классу менеджера для создания объекта с ними. Проблема в том, что я не могу использовать этот класс для использования другого устройства (использование круга), а также не имеет доступа к экземпляру класса менеджера (который находится в основной форме).

Итак, что мне делать? Я уже рассмотрел использование публичной переменной, но у меня плохое отношение к этому (относительно шаблонов OOD).

Answer 1

Мое предложение состоит в том, чтобы отделить данные от GUI, потому что это вызывает вашу проблему. Если у вас есть форма, которая собирает данные от пользователя, тогда вы должны отличить данные от формы (TForm).

Например, предположим, что у вас есть экземпляр TForm и форма, на которой создается три поля, имя пользователя, возраст и местоположение. Вы хотите, чтобы пользователь вводил эти древовидные объекты, но когда пользователь закрывает форму, вы должны передать вставленные данные на какой-либо объект. Форма закрывается, она освобождается, но объект сохраняется. Затем вы передаете этот объект вашему объекту-менеджеру.

Простой пример:

Это ваша запись, которая будет содержать данные

type 
    TGatheredData = record 
    Name: String[40]; 
    Age: Byte; 
    Location: String[40]; 
end; 

Вашего TForm1 может иметь фильм конструктора:

constructor TForm1.Create(AOwner: TComponent; var GatheredData: TGatheredData); 
begin 
    inherited Create(AOwner); 
    FGatheredData := GatheredData; 
    //you may want to deserialize GatheredData here and show the data in your form controls 
end; 

Вы называете его, пройти GatheredData, а затем вы показываете свою форму.

Затем, при закрытии формы, вы выбираете обновление данных из элементов управления формы.

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
    if Self.ModalResult = mrOk then 
    begin 
    //serialize your object 
    FGatheredData.Name := '';//name taken from control f.e. TEdit 
    FGatheredData.Age := '';//name taken from control f.e. TSpinButton 
    FGatheredData.Location := '';//name taken from control f.e. TEdit 
    end; 
end; 

Имея эту запись данных, вы можете передать ее таким же образом своему объекту-менеджеру. Вы отделили данные от GUI таким образом, и вы можете легко подключить свою запись к нескольким различным формам.

Не забудьте объявить свой тип записи на внешнем устройстве и использовать это устройство в своем блоке управления и блоке.

Надеюсь, это немного поможет.

Answer 2

Чтобы решить проблему с круговой ошибкой, вы используете этот блок в секции реализации.

implementation 
{$R *.DFM} 

Uses <Your Unit>; 

end. 

Answer 3

«Класс менеджера» не должен быть в форме любой формы, а сам по себе. Разделяя код GUI от логики бизнеса, вы избегаете таких проблем.

Answer 4

[Изменить: Я изначально поставил этот ответ в комментарии, но решил переместить его в полный ответ. TDatamodules слишком важны и слишком распространены в Delphi, чтобы не подчеркивать их, и они предоставляют встроенные простые в использовании средства разделения gui из логики и данных.]

Другие люди дали хорошие комментарии относительно развязки gui из логики и данные. Удивительно, но я не думаю, что кто-то упомянул, что в Delphi TDatamodules являются одним из основных способов сделать это. Вы помещаете свои данные и логику в Datamodule, а затем обе формы «используете» Datamodule для доступа к своим данным и методам.Вот краткое введение: http://delphi.about.com/od/database/l/aa101601a.htm

В обеих формах (и других формах) можно получить доступ к наборам данных или другим данным/структурам данных, которые расположены на/в модуле Datamodule. Там должен быть легко найти образец проекта, иллюстрирующий настройку, поскольку он (или, по крайней мере, был) стандартным способом создания приложений Delphi.

Answer 5

Имея это 3 единицы: FormMain FormEdit UnitMyClass

Вы создаете свой объект в FormMain и передать его FormEdit в функции как:

class function FormEdit.EditMyObject(AObject: TMyClass): boolean; 

эта функция будет ShowModal форму. Форма будет делать изменения в объекте и, наконец, вернуть True, если пользователь нажал OK.

Как вы можете видеть в UnitMyClass нет ссылки на FormMain или FormEdit

Answer 6

Если я правильно понял ваш вопрос правильно, то вы хотите, чтобы менеджер для управления формой (не формы для доступа к яслям). Правильно? Вы не можете закрыть основную форму, как если бы вы закрыли приложение, но вы можете Скрыть его. (если вы не создадите консольное приложение). Но это создает миленькую проблему :)

Итак ... Всплеск форма (Main форма):

. . .

uses 
    ManagerU; 

type 
    TFormSplash = class(TForm) 
    procedure FormPaint(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
    procedure FormDestroy(Sender: TObject); 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    Manager: TManager; 
    end; 

var 
    FormSplash: TFormSplash; 

implementation 


{$R *.dfm} 

procedure TFormSplash.FormCreate(Sender: TObject); 
begin 
    Manager := TManager.Create; 
end; 

procedure TFormSplash.FormDestroy(Sender: TObject); 
begin 
    Manager.Free; 
end; 

procedure TFormSplash.FormPaint(Sender: TObject); 
begin 
    if Visible then 
    begin 
    Manager.GetData(Self); 
    Hide; 
    Manager.DoDataStuff; 
    Close; 
    end; 
end; 

end. 

DaaObject является:

unit DataObjectU; 

interface 

uses classes; 

type TDataObject = class(TObject) 
    Data: string; 
end; 

implementation 

end. 

Менеджер:

interface 

uses DataObjectU; 

type 
    TManager = Class(Tobject) 
    MyData: TDataObject; 
    constructor Create; virtual; 
    destructor Destroy; override; 
    procedure GetData(OwnerForm: TForm); 
    procedure DoDataStuff; 
    end; 

implementation 

uses DataFormU; 

{ TManager } 

constructor TManager.Create; 
begin 
    inherited Create; 
    MyData := TDataObject.Create; 
end; 


destructor TManager.Destroy; 
begin 
    MyData.Free; 
    inherited; 
end; 

procedure TManager.DoDataStuff; 
begin 
    // do stuff with data here 
end; 

procedure TManager.GetData(OwnerForm: TForm); 
var 
    MyDataForm: TDataForm; 
begin 
    MyDataForm := TDataForm.Create(OwnerForm); 
    try 
    if MyDataForm.ShowModal = mrOK then 
    begin 
    MyData.Data := MyDataForm.Data; 
    end; 
    finally 
    MyDataForm.Free; 
    end; 
end; 

end. 

DataForm является:

type 
    TDataForm = class(TForm) 
    btnOK: TButton; 
    procedure btnOKClick(Sender: TObject); 
    private 
    function GetData: String; 
    { Private declarations } 
    public 
    { Public declarations } 
    MyData: TDataObject; 
    property Data: String read GetData; 
    end; 

var 
    DataForm: TDataForm; 

implementation 

{$R *.dfm} 

procedure TDataForm.btnOKClick(Sender: TObject); 
begin 
    MyData := TDataObject.Create; 
    ModalResult := mrOk; 
end; 

function TDataForm.GetData: String; 
begin 
    Result := MyData.Data; 
end; 

Вам нужно будет заполнить в остальной части блока кода и бесплатно некоторые вещи, но по существу это:

Start Program (Создает Всплеск)

Всплеск Создает менеджер называет его, чтобы получить данные из DataForm затем скрывает себя

менеджер

вызовов для управления данными

когда менеджер сделал это затем закрывается ,

Там нет другого пути, чтобы закрыть его в настоящее время, кроме как через диспетчер задач!)

Tim