![]() |
|
|
#7
|
|||
|
|||
|
да ладно не ругайся
!!!слушай чего нашла: я тебе свою прогу опишу, а ты доделай - не сложно!!! Разработка сплеш - формы создадим новый прокт, добавим в него ещё одну форму и присвоим её значения: name - SplashForm BorderStyle - bsNone Position - poDesktopCenter FormStyle - fsStayOnTop Height - 80 Width - 200 разместим на форме компонент Lable и присвоим ему имя "Подождите" или "Загрузка" эта форму будет отображаться во время загрузки основного окна программы вносим коррективы в файл проекта. выполни команду: Project - View Sourse, в результате чего в окне редактора появится вкладка с текстом проги. внесём в него след изменения: program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {SplashForm}; {$R *.res} begin SplashForm:= TSplashForm.Create(nil); SplashForm.Show; SplashForm.Repaint; Application.Initialize; Application.CreateForm(TForm1, Form1); //строка удалена: //Application.CreateForm(TSplashForm, SplashForm); Appliction.Run; end. после идёт твоя прога - т.е. главная форма... при попытке откомпилировать отобразится сообщение о том, что в модуле главной формы есть ссылка на форму SplashForm, но отсутствует ссылка на соотетствующий модулью В ответ на поставленный вопрос следует нажать кнопку Yes, и требуемая ссылка будет добавлена автоматичски. перед запуском проги сохраним модуль гл формы под именем Autorun1.pas, модуль сплэш - формы - под именем Autorun2.pas, а файл проекта - под именем Autorun.dpr ![]() |