Форум программистов [Powered by Invision Power Board]

Код


var
  SplashForm: TForm;
  SplashImage: TImage;
  SplashSite:TLabel;
  SplashInfo:TLabel;
begin
  SplashForm := TForm.create(nil);
  with SplashForm do
  begin
    BorderStyle := bsNone;
    Position := poScreenCenter;
    // Óêàçûâàåì ðàçìåðû ïîêàçûâàåìîãî èçîáðàæåíèÿ
    ClientWidth := 700;
    ClientHeight :=450 ;
   end;
    SplashImage := TImage.Create(SplashForm);
  with SplashImage do
    begin
SplashImage.Picture.LoadFromFile(extractfilepath(Application.ExeName)+'Boot\Boot.JPG');
    Stretch := true;
    Align := alClient;
    Parent := SplashForm;
    end;
  SplashSite:= TLabel.Create(SplashImage);
  with SplashSite do
    begin
SplashSite.Caption:= 'Ïðèâåòèê ìóäàêè';
SplashSite.Font.Charset:= ANSI_CHARSET;
SplashSite.Font.Color:= clBlue;
SplashSite.Font.Size:= 18;
SplashSite.Font.Height:=  -19;
SplashSite.Font.Name:= 'Markiz de Sad script';
SplashSite.Font.Pitch :=  fpDefault;
SplashSite.Top:=408;
SplashSite.Left:=272;
SplashSite.ParentFont:=false;
SplashSite.Visible:=true;
 end;
  with SplashForm do
   begin
     Show;

      begin
       Repaint;
        // ïàêàç èçîáðîæåíèÿ â ñåêóíäàõ (1000 – îäíà ñåêóíäà, 2000 – äâå ñåêóíäû è ò.ä.)
       Sleep(5000);
      end;
     Close;
     Free;
   end;

Код


SplashInfo.parent := SplashForm

Цитата(kemiisto @ 12.12.2008, 01:07

)

тут была написана глупость...

Цитата(Данкинг @ 11.12.2008, 23:10

)

Млин, а я-то над ней думаю сижу...

Цитата(kemiisto @ 12.12.2008, 01:12

)

а на кой ты динамически VCL-компоненты создаёшь?

Цитата(Volkogriz @ 12.12.2008, 00:46

)

begin
       Repaint;
        // ïàêàç èçîáðîæåíèÿ â ñåêóíäàõ (1000 – îäíà ñåêóíäà, 2000 – äâå ñåêóíäû è ò.ä.)
       Sleep(5000);

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i:=1 to 5000 do
    Application.ProcessMessages();
end;

Цитата(Volkogriz @ 12.12.2008, 01:45)

Типо этого да:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i:=1 to 5000 do
    Application.ProcessMessages();
end;