скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Передача переменных форме



Автор: Ed Jordan

...поможете мне создать функцию, с помощью которой я передам переменные в TFormClass? Проблема в том, что MyDlg.Execute() не захотела компилироваться, поскольку, как сообщил мне компилятор, я не могу использовать MyDlg (определенный как: TForm).

Эта функция может выглядеть примерно так:


function ExecuteDialog( FormClass: TFormClass; var Data ): Boolean; 

Я могу вам дать еще один совет: сделать все ваши формы наследниками одного класса, в котором объявлены виртуальные методы SetData и GetData.


{ ----------------------- }
unit ExecFrms;
interface
uses Forms, Controls;
type
  TExecForm = class(TForm)
  public
    procedure GetData(var Data); virtual; abstract;
    procedure SetData(var Data); virtual; abstract;
  end;
  TExecFormClass = class of TExecForm;

function ExecuteDialog(FormClass: TExecFormClass;
  var Data): Boolean;

implementation

function ExecuteDialog(FormClass: TExecFormClass;
  var Data): Boolean;
begin
  with FormClass.Create(Application) do
  try
    SetData(Data);
    Result := ShowModal = mrOK;
    if Result then
      GetData(Data);
  finally
    Release;
  end;
end;

end.
{ ----------------------- }

Как вы можете видеть, я поместил функцию ExecuteDialog в тот же самый модуль.

После того как Delphi создаст форму, вы должны в модуле формы сделать четыре вещи:

  1. вручную измените предка формы, с TForm на TExecForm;
  2. добавьте ExecFrms в список используемых модулей;
  3. добавьте тип записи для хранения данных, необходимых диалогу; и
  4. перекрыть методы SetData и GetData.

{ ----------------------- }
unit MyDlgs;
interface
uses WinTypes, WinProcs, Classes, Graphics, Forms,
  Controls, Buttons, StdCtrls, Spin, ExtCtrls,
  ExecFrms;

type
  { Запись для данных, необходимых модальной форме... }
  TMyDlgData = record
    FormCaption: string;
    FormWidth: Integer;
  end;

  TMyDlg = class(TExecForm)
    OKBtn: TBitBtn;
    CancelBtn: TBitBtn;
    HelpBtn: TBitBtn;
    Bevel1: TBevel;
    Edit1: TEdit;
    SpinEdit1: TSpinEdit;
  public
    procedure SetData(var Data); override;
    procedure GetData(var Data); override;
  end;

var
  MyDlg: TMyDlg;

implementation

{$R *.DFM}

procedure TMyDlg.SetData(var Data);
begin
  with TMyDlgData(Data) do
  begin
    Edit1.Text := FormCaption;
    SpinEdit1.Value := FormWidth;
  end;
end;

procedure TMyDlg.GetData(var Data);
begin
  with TMyDlgData(Data) do
  begin
    FormCaption := Edit1.Text;
    FormWidth := SpinEdit1.Value;
  end;
end;

end.
{ ----------------------- }

Затем создаем и выполняем диалог, который должен выглядеть приблизительно так:


{ Добавьте ExecFrms и MyDlgs в список USES вызывающего модуля. }

procedure TForm1.GetNewCaptionAndWidthBtnClick(Sender: TObject);
var
  Data: TMyDlgData;
begin
  Data.FormCaption := Caption;
  Data.FormWidth := Width;
  if ExecuteDialog(TMyDlg, Data) then
  begin
    Caption := Data.FormCaption;
    Width := Data.FormWidth;
  end;
end;

Не поверите: данный код работает еще со времён Turbo Vision!






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook