да ладно не ругайся
!!!
слушай чего нашла:
я тебе свою прогу опишу, а ты доделай - не сложно!!!
Разработка сплеш - формы
создадим новый прокт, добавим в него ещё одну форму и присвоим её значения:
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