Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

Delphi , Программа и Интерфейс , Формы

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

Автор: 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!

Статья Передача переменных форме раздела Программа и Интерфейс Формы может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Формы ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
28.03.2024 14:36:05/0.038838863372803/0