|
Платные хостинги
Раскрутка сайта
Книги по программированию
Показать форму, Нужно показать Form2 при старте проги
- Вопрос следующий как при старте моей программы Показать не главную а Form2 (если например программа не зарегестрирована)Я делаю так:Код var Start:Boolean=False;.......procedure TForm1.FormCreate(Sender: TObject);beginif Registred {Проверяем зарегестрирована ли прога} then Timer1.Enabled:=False else Start:=True;end;procedure TForm1.Timer1Timer(Sender: TObject);beginif Not Start then Exit;Timer1.Enabled:=False;Start:=False;Form2.Show;end;highlightSyntax('delphiIwY2E5','delphi');Вообще то это работает , но может можно сделать как то правильней (не через таймер). Это сообщение отредактировал SlaUr - 9.3.2004, 12:01
- Прописать все и ф-цию проверки тоже, в коде проекта в Меню Project->View Sourceт.е. у тебя будет прописано, примерно так:Код if Registred {Проверяем зарегестрирована ли прога} then begin Application.CreateForm(TForm1, Form1); Form1.Show;endelse begin Application.CreateForm(TForm2, Form2); Form2.Show;end;highlightSyntax('delphi5MmQxN','delphi'); Это сообщение отредактировал Cashey - 9.3.2004, 12:31
- CasheyА если мне в form2 нужна кнопка (например согласен) после нажатия на которую form2.hide а form1.show? (в вашем предложении form1 вообще не создается)
- Да ради бога! Пропиши в кнопке "согласен"Код Application.CreateForm(TForm1, Form1); Form1.Show;highlightSyntax('delphilmZDI3','delphi');
- Спасибо я и не подумал что так можно сделать(думал что создавать формы можно только в .dpr) Это сообщение отредактировал SlaUr - 9.3.2004, 16:45
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
