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

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

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

Естественно, эта технология подразумевает написание некоторого кода, поэтому, если вы не расположены к этому действию, пропустите мое дальнейшее повествование.

TMyForm = class(TForm)

…

private

FormVar: ^TMyForm;

public

constructorCreate(AOwner: TComponent; varAFormVar: TMyForm);

destructorDestroy; override;

end;

constructorTMyForm.Create(AOwner: TComponent; varAFormVar: TMyForm);

begin

FormVar := @AFormVar;

inheritedCreate;

.....

end;

destructorTMyForm.Destroy;

begin

FormVar^ := nil;

inheritedDestroy;

end;

MyForm := TMyForm.Create(Self, MyForm);

MyOtherForm := TMyForm.Create(Self, MyOtherForm);

Этот код при разрушении окна автоматически сбрасывает все, что вы передаете в AFormVar, в nil.

Как вы, наверное, заметили, частный член FormVar реально является указателем на указатель. Так, читая содержимое памяти, адрес которой содержится в FormVar, мы реально получаем переменную формы. Таким образом мы можем просто установить ее в nil.

– Jeff Fisher

Существует ли в Delphi возможность создавать главную форму по условию? Я хочу использовать условие IF (в зависимости от передаваемого параметра) для того, чтобы определить какая форма будет главной при старте приложения. Фактически «другую» форму НЕ нужно будет загружать.

Хитрость здесь заключается в том, что мы предоставляем компилятору весь необходимый для создания форм код, но не допускаем его выполнения (IF FALSE THEN), при этом компилятор не ругается, а мы тем временем (во время выполнения приложения) выбираем и создаем главную форму. Вот пример кода, измененный .DPR-файл, который при старте случайным образом выбирает из друх форм главную:

begin

IF FALSE THEN BEGIN

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

END;

Randomize;

IFRandom < 0.5 THENApplication.CreateForm(TForm1, Form1)

ELSEApplication.CreateForm(TForm2, Form2);

Application.Run;

end.

Пара «подходящих» для CreateForm форм заключено в никогда не выполнимый блок, тем самым приводя компилятор в состояние свинячего восторга.

– Neil Rubenking

Тема: Динамическое создание и циклическое связывание форм

Как сделать простой метод, переключающий между формами?

Как мне добавить возвращаемые результаты к моей ShowModal-форме?

Как мне создавать экземпляры форм во время выполнения приложения?

Необходимый для осуществления этого метод очень прост. В моем примере я использую 3 формы с именами Mainform, Form1 и Form2. На Mainform я установил кнопку, которая выводит Form1, из нее вы можете вызвать любое количество форм (перемещаться между ними) через соответствующие кнопки, расположенные на этих формах. В моем примере "переключение" происходит между формами Form1 и Form2.

Шаг 1. Разместите следующие две строчки в секции interface той формы, которая у вас будет главной:

const

mrNext = 100;

mrPrevious = 101;

Шаг 2. Разместите на главной форме кнопку и добавьте следующий код в обработчик события ее нажатия:

var

MyForm: TForm;

R, CurForm: Integer;

begin

R := 0;

CurForm := 1;

whileR <> mrCancel do begin

Case CurForm of

1: MyForm := TForm1.Create(Application);

2: MyForm := TForm2.Create(Application);

end;

try

R := MyForm.ShowModal;

finally

MyForm.Free;

end;

caseR of

MrNext : Inc(CurForm);

MrPrevious : Dec(CurForm);

end;

// эти 2 строчки позволят нам не выходить за границы

ifCurForm < 1 thenCurForm := 2

else ifCurForm > 2 thenCurForm := 1;

end; // while

end;

Шаг 3. Добавьте формы 1 и 2 (и любые другие, какие вы хотите иметь) в список используемых модулей формы mainform.

Шаг 4. В форме Form1 и Form2 добавьте MainForm в список используемых модулей (чтобы они видели константы.)

Шаг 5. На форму Form1, Form2, и все последующие, добавьте 2 TBitBtn'а, с заголовками «Next» и «Previous». In the Onclick Events for these buttons add the following line of code.

Если это кнопка Next, добавьте: ModalResult := mrNext;

Если это кнопка Previous, добавьте: ModalResult := mrPrevious;

Nomadicсоветует:

Дело-то вот в чем: Главным окном программы дельфийской является не главная форма, а окно TApplication, которое имеет нулевые размеры, поэтому его не видно. Именно для него показывается иконка на панели задач. Когда пользователь нажимает кнопку минимизации на главной форме, команда минимизации передается этому окну, и сворачивается именно оно, а для остальных просто делается hide. А так как окно TApplication имеет нулевые размеры, то и анимации никакой не видно.

А чтобы этого избежать, необходимо:

В исходном тесте модуля проекта после вызова Application.Initialize выполнить вызов

// В исходном тесте модуля проекта после вызова Application.Initialize

SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) orWS_EX_TOOLWINDOW);

В исходном тексте модуля главной формы перекрыть следующие методы –

// // В классе формы

// Интерфейс

protected

procedure CreateParams( varp: TCreateParams); override;

procedureWMSysCommand( varm: TMessage); messageWM_SYSCOMMAND;

// Реализация