Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

– Fred S.

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

Application.CreateHandle;

ShowWindow(Application.Handle, SW_HIDE);

Application.ShowMainForm := FALSE;

Да, чуть не забыл, есть еще одна вещь. При нормальном поведении TApplication создает дескриптор и показывает окно прежде, чем далее начнет что-то «происходить». Чтобы избежать этого, вам необходимо создать модуль, содержащий единственную строчку в секции initialization:

IsLibrary := True;

… и поместить этот модуль ПЕРВЫМ в .DPR-файле в списке используемых модулей. Этим мы «одурачиваем» TApplication, и оно думает что оно запущено из DLL, тем самым изменяя свое обычное поведение.

– Neil J. Rubenking

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

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

functionExecuteDialog(FormClass: TFormClass; varData): Boolean;

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

{ ----------------------- }

unitExecFrms;

interface

uses Forms, Controls;

typeTExecForm = class(TForm)

public

procedureGetData( varData); virtual; abstract;

procedureSetData( varData); virtual; abstract;

end;

TExecFormClass = class ofTExecForm;

functionExecuteDialog(FormClass: TExecFormClass; varData): Boolean;

implementation

functionExecuteDialog(FormClass: TExecFormClass; varData): Boolean;

begin

withFormClass.Create(Application) do try

SetData(Data);

Result := ShowModal = mrOK;

ifResult thenGetData(Data);

finally

Release;

end;

end;

end.

{ ----------------------- }

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

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

1. вручную измените предка формы, с TForm на TExecForm;

2. добавьте ExecFrms в список используемых модулей;

3. добавьте тип записи для хранения данных, необходимых диалогу; и

4. перекрыть методы SetData и GetData.

{ ----------------------- }

unitMyDlgs;

interface

usesWinTypes, 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

procedureSetData( varData); override;

procedureGetData( varData); override;

end;

varMyDlg: TMyDlg;

implementation

{$R *.DFM}

procedureTMyDlg.SetData( varData);

begin

withTMyDlgData(Data) do begin

Edit1.Text := FormCaption;

SpinEdit1.Value := FormWidth;

end;

end;

procedureTMyDlg.GetData( varData);

begin

withTMyDlgData(Data) do begin

FormCaption := Edit1.Text;

FormWidth := SpinEdit1.Value;

end;

end;

end.

{ ----------------------- }

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

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

procedureTForm1.GetNewCaptionAndWidthBtnClick(Sender: TObject);

varData: TMyDlgData;

begin

Data.FormCaption := Caption;

Data.FormWidth := Width;

ifExecuteDialog(TMyDlg, Data) then begin

Caption := Data.FormCaption;

Width := Data.FormWidth;

end;

end;

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

– Ed Jordan

В нашем примере для решения задачи мы передаем конструктору переменную формы. Затем, при закрытии формы, мы сбрасываем эту переменную.