сабж... как в делфи сделать "всплывающее" окно, при загрузке программы? (например такое же, как в ворде при его загрузке)
и еще вопрос, надо ли чтонибуть прописывать в самом файле проекта? вот здесь...

Код

begin   Application.Initialize;   Application.CreateForm(TForm1, Form1);   Application.Run; end.

а то у меня совсем какаято тупость получается...
можт кто умную идею подкинет...

Код

program Project1;  uses    Forms,    Unit1 in 'Unit1.pas' {Form1},    Unit2 in 'Unit2.pas' {Form2};  {$R *.RES}  begin    Application.Initialize;    Form2 := TForm2.Create(Application);    Form2.Show;    Form2.Update;    while Form2.Timer1.Enabled do      Application.ProcessMessages;    Application.CreateForm(TForm1, Form1);    Form2.Hide;    Form2.Free;    Application.Run;  end.

Читай DRKB

~FoX~ спасибо за справочку

Это сообщение отредактировал(а) CacheY - 10.6.2005, 11:28

Цитата

Код program Project1;  uses    Forms,    Unit1 in 'Unit1.pas' {Form1},    Unit2 in 'Unit2.pas' {Form2};  {$R *.RES}  begin    Application.Initialize;    Form2 := TForm2.Create(Application);    Form2.Show;    Form2.Update;    while Form2.Timer1.Enabled do      Application.ProcessMessages;    Application.CreateForm(TForm1, Form1);    Form2.Hide;    Form2.Free;    Application.Run;  end.

с этим понятно...
но, у меня возникают проблемы(предположительно из-за кривости рук или недостатка информации в голове) при добавлении других форм в проект...
а теперь вопрос, если в проекте несколько форм, например 3
первая(form1) - основное окно программы,
вторая(form2) - окошко, вылетающее при запуске программы,
третья(form3) - ну например окно "о программе "

куда надо прописывать третью форму?
зы. сейчас я пробую совмещать сплеш скрин и окно "о программе " =)
но это же не выход, всетаки интересно как работать с несколькими окнами

Это сообщение отредактировал(а) CacheY - 10.6.2005, 13:50

Цитата(CacheY @ 10.6.2005, 13:47)

куда надо прописывать третью форму?

Никуда не нужно прописывать. Хотя строчка Application.CreateForm(TForm3, Form3); появится в файле проекта, если у тебя стоит автоматическое создание окон.

Цитата(Yanis @ 10.6.2005, 18:15)

Цитата(CacheY @ 10.6.2005, 13:47) куда надо прописывать третью форму? Никуда не нужно прописывать. Хотя строчка Application.CreateForm(TForm3, Form3); появится в файле проекта, если у тебя стоит автоматическое создание окон.

появляться она появляется, но возникают глюки во всем проекте, и когда я начинаю там править... иногда он даже не запускает программу

Код

{$R *.res} Var  iParam:byte;  bNoSplash:Boolean; begin   Application.Initialize;   Application.Title := 'Инфо Аптека';   Application.HelpFile := '';   bNoSplash:=False;   if ParamCount > 0 then     For iParam := 0 to ParamCount do       if AnsiUpperCase(ParamStr(iParam)) = '-NS' then bNoSplash:=True   else     bNoSplash:=False;   if bNoSplash=False then begin       fmSplash := TfmSplash.Create(Application);       fmSplash.Show;       fmSplash.Update;   end;//if bNoSplash=False then begin   Application.CreateForm(TfmMain, fmMain);   Application.CreateForm(TfmFilialsReport, fmFilialsReport);   Application.Run; end.

Код

на форме fmSplash таймер на 5 сек. procedure TfmSplash.Timer1Timer(Sender: TObject); begin   try     fmSplash.Close;     fmSplash.Free;   except   end; end;

Код

у главной формы приложения, вернее у формы, которая появляется после fmSplash в событии OnShow    if assigned(fmSplash) then       try//пытаемся обновить заставку (на заставке есть таймер на 5-10сек. для закр. формы)         with fmSplash do begin           if AlphaBlend=False then begin             AlphaBlendValue:=170;             AlphaBlend:=True;           end;           for i:=150 downto 0 do            if i mod 3 = 0 then begin              AlphaBlendValue := i;              Application.ProcessMessages;            end;         end;//with        FreeAndNil(fmSplash);

Это сообщение отредактировал(а) dsergey - 11.6.2005, 08:37

всем спасибо, с этим вроде бы разобрался