jak zrobić aby podczas ładowania sie programu wyskoczyła mała bitmapka np. z logiem a po 10 sek sama sie
zamkneła - próbowałem sam ale mi nic nie wychodzi - wiec proszę o pomoc was
pozdrawiam
Najwygodniej jest zmodyfikowac zrodlo projektu w
nastepujacy sposob i dodac do niego formularz z bitmapka:
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Logo};
{$R *.RES}
begin
Logo:=TLogo.Create(Application);
Logo.Show;
Logo.Update;
Application.CreateForm(TForm1, Form1);
Logo.Delay(1600);
Logo.Free;
Logo:=nil;
Application.Run;
end.
Procedura Delay opoznia start aplikacji zeby uzytkownik nadazyl
sie nacieszyc nasza wizytowka ;)Na wszelki wypadek podaje kod
takiej procki:
procedure TLogo.Delay(Czas:Integer);
var
I:Integer;
begin
I:=GetTickCount();
while I+Czas>GetTickCount() do
Application.ProcessMessages;
end;
W nawiasie podaje sie czas opozninia w milisekundach.
Na twoj problem sa inne sposoby ale ten chyba jest najprostszy.
Musisz po prostu odpowiednio dobrac delay i na formularzu delay umiescic bitmapke.
--Pozdrawiam
Ojciec (Delphi/C++)