obrazek na pulpit przy starcie aplikacji

0

czołem
mam taki pomysł
chcę aby przy otwarciu programu w form.create wrzucić coś co spowoduje pokazanie się na pulpicie przez chwile jakiegoś obrazka
sama formatka nie będzie się pokazywać
ktoś mnie może nakierować jak z tym obrazkiem to zrobić?

canvas i pulpit? coś kombinowałem, ale jakoś mi to topornie idzie [glowa]

pozdrawiam

0

może nie form.create a powiedzmy w jakimś czasomierzu niech będzie form.timer1timer
pozdrawia

0

Jest cos takiego jak Splash screen. Tworzysz nowa forme usuwasz wlasnosc BorderStyle na bsNone, FormStyle na fsStayOnTop i Position na DsektopCenter. Na formie umieszczasz co chcesz.Zapisujesz. Przechodzisz nastepnie do edycji Projeckt.pas i tam umieszczasz w begin : Aplication.ShowMainForm :=False; i Form2.Show; i tyle i masz to co chciales. :-)

0

Jak tylko będe miał czas to napisze pasuje kod w C++? jak nie to spróbuje odkurzyć Delphi ;p Musisz Zrobić dodatkową formę, usunąć ją z listy (Project -> Options - >AutoLoadForms ) ew usunąć jej wpis z pliku (nie pamiętam którym). Stowrzyć ją tam jako dynamiczny obiekt. a po załadowaniu wszystkich formularzy skasować (ew dodać wcześniej Sleep(1000) to będzie choć przez chwilę widoczna. i masz gotowego Splash Screena. PS. zeby formularz był "niewidoczny" ustaw Border na Single (nie można zmenić rozmiaru), System Icons - (minimalizuj itp) wywal wszystko.. i oczywiście wstaw na formę TImage załaduj obrazek i gotowe.

Znalazłem cos takiego na googlu..http://delphi.cartall.com.pl/Pytania/pyt26.htm

0

A ja chciałem zrobić SplashScreena w DLL'ce i nie wiem dlaczego mi to nie chce działać.
Biblioteka wygląda tak

library SplashDLL;

uses
  SysUtils,
  Classes,
  Forms,
  FSplash in 'FSplash.pas' {Form1};

{$R *.res}
procedure pokaz_ekran; stdcall;
  begin
    Form1 := TForm1.Create(nil);
    Form1.ShowModal;
    Sleep(3000);
    Form1.Destroy;
  end;

exports
  pokaz_ekran name 'pokaz_ekran';

begin
end.

No i w kodzie projektu wywołuje tą procedurke:

program Splash;

uses
  Forms,
  Main in 'Main.pas' {Form2};

{$R *.res}
procedure pokaz_ekran; stdcall external 'SplashDLL.dll' name 'pokaz_ekran';

begin
  Application.Initialize;
  pokaz_ekran;
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

i problem polega na tym że się splashscreen nie zamyka. Co mam żle ??

0

ludzie, co Wy ostatnio ciagle z tym ShowModal!?
ech... napisze jeszcze raz:

ShowModal pokazuje forme i czeka na jej zamkniecie. poki jej nie zamkniesz, kod znajdujacy sie ponizej ShowModal nmie zostanie wywolany.
muszisz dac form1.Show; :-P

0

Dzieki, zmieniłem na Show, ale nadal nie działa jak trzeba. SplashScreen się pojawia i po zniknięciu zamyka się cała aplikacja.

0

Hmmm.... to nie wiem...
a nie powinno byc zamiast

Form1.Destroy;
Form1.Close;

?

1 użytkowników online, w tym zalogowanych: 0, gości: 1