Советы по 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]
