Delphi 7 Splash Ekran Yapımı

[Nomercy]

Arkadaşlar delphi 7 ile splash ekran nasıl yapabilirim?

[unicorn64]

google amcaya sorarak başlayabilirsin

[Nomercy]

Ben baktım önce de googledaki kodları denedim ama net bir çözüm bulamadım.Ben belirlediğim saniye kadar gösterilmesini istiyorum.

[PROGRAMADOR]

Timer kullanabilirsin.

[kaan_karabey]

Örnek kodlama verebilirmisin?

[speed60]

Kod: Tümünü seç

unit SplashUNIT;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls;

type
  TSplashform = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    ProgressBar1: TProgressBar;
    Timer1: TTimer;
    Label2: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    procedure Delay (Seconds, MilliSec: Word);
  public
    { Public declarations }
  end;

var
  Splashform: TSplashform;

implementation

{$R *.dfm}

procedure TSplashform.Timer1Timer(Sender: TObject);
begin
close;
Free;
end;

procedure TSplashform.Delay(Seconds, MilliSec: Word);
var TimeOut: TdateTime;
begin
TimeOut :=Now + EncodeTime (0,Seconds div 240, Seconds mod 240, MilliSec);
//Timeout zamanına kadar bekle//
while now< Timeout do
application.processmessages;
   end;
procedure TSplashform.FormCreate(Sender: TObject);
begin
//BorderStyle:=bsNone;
Panel1.BorderWidth := 3;
Show;
Update;
end;

end.

unitin bu şekilde ben sadece proggres gösteriyorum

Kod: Tümünü seç

procedure TAnaForm.FormCreate(Sender: TObject);
var I: Integer;
begin
  Splashform := TSplashform.Create(nil);
  Splashform.show; //Tanımlayıcı Ekranı Göster
  Splashform.update; //Görünür durumda olan tüm öğeleri güncelle
  with Splashform.ProgressBar1 do
  begin
    Min := 1;
    Max := 10000;
    for I := min to Max do
    begin
      Position := i;

    end;
  end;
  Splashform.Close;
  Splashform.Free;
end;

ana unitin create olayındada bu