jak to zrobić?

0

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

0

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&gtGetTickCount() 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++)

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