Прехвърляне към съдържание


Снимка

Мултимедийно програмиране


  • Please log in to reply
2 replies to this topic

#1 Nelys Style Vista

Nelys Style Vista

    Живее във форума

  • Преводачи
  • ПипПипПипПипПип
  • 1129 Мнения:
  • Точки:69
  • Новини:0
  • Уроци:0

Публикувано: 30 March 2009, 19:52

И аз на свой ред да питам нещо: Как да изведа Splash екран, без да ползвам Application.CreateForm () в модула като основна форма за приложението?
Търсих информация из нета, разгледах блога на Христо Костов, но не открих отговор на въпроса си.
Моля, ако някой знае, да сподели. :)

#2 John Front

John Front

    Нов

  • Гости
  • 70 Мнения:
  • Точки:0
  • Новини:0
  • Уроци:0

Публикувано: 25 September 2009, 20:13

Ето го кодчето.

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {MainForm},
  Unit2 in 'Unit2.pas' {SplashForm};

{$R *.RES}

begin
  SplashForm := TSplashForm.Create(nil); // Create splashform
  try
	SplashForm.Show; // show the splash
	Application.Initialize; // continue with creation of application &
	Application.CreateForm(TForm1, Form1); // forms
  finally
	SplashForm.Hide; // Hide the splashform
	SplashForm.Free; // and free it
	Application.Run; // Start the application normally
  end;
end.

За кое ще го използваш ако смея да попитам :)
Публикувано изображение

#3 Nelys Style Vista

Nelys Style Vista

    Живее във форума

  • Преводачи
  • ПипПипПипПипПип
  • 1129 Мнения:
  • Точки:69
  • Новини:0
  • Уроци:0

Публикувано: 28 September 2009, 07:14

Благодаря за отделеното време (не мислех, че някой ще отговори)! Реших проблема без да ползвам Application.CreateForm () в модула. Но отдавна не се занимавам с това. :)
Явно нещо бях объркала кода за splash.pas и Delphi правеше splash екрана основна форма за приложението, а трябваше да се изпълнява преди основния блок на програмата. Принципно ми беше необходимо за създаване на Media Player. :)




0 потребители четат тази тема

0 регистрирани потребители, 0 гости и 0 анонимни потребители