Советы по Delphi

         

Альтернатива главной форме?


Ниже показан код, который проверяет параметр командной строки, в зависимости от значений которого главной становится та или иная форма:

    var
bCondition: Boolean;
{$R *.RES}
begin
bCondition :=  ( ParamStr(1) = 'Form2'); {или другое условие, способное "переключать" главную форму }
if bCondition then begin {<<<} Application.CreateForm(TForm1, Form1); end {<<<} else Application.CreateForm(TForm2, Form2); Application.Run;

begin...end {<<<} необходим для того, чтобы вы могли воспользоваться Project Options Dialog.

Данный совет навеян книгой 'Delphi Programming Problem Solver' автора Neil Rubenking 1-56884-795-5. [001791]



Содержание раздела