SplashScreen Gif oynatma-[ÇÖZÜLDÜ]

[AliZairov]

İyi akşamlar. SplashScreen formuma gif ekeldim. Normal çalışıyo. Aşağıdakı gibi Sleep işin içine girince Form beklemede oluyo gif oynamıyor.

Kod: Tümünü seç

  SplashScreen := TSplashScreen.Create(nil);
  SplashScreen.Show;
  SplashScreen.Update;
  Sleep(3000);
  
  Application.CreateForm(TMain, Main);
  SplashScreen.Close;
  SplashScreen.Free;
  Application.Run;

[mrmarman]

Sleep yerine basit bir while loop kullan.

Kod: Tümünü seç

procedure bekle( miliSaniyeSure: Cardinal );
Var
  zaman : Cardinal;
begin
  zaman := GetTickcount + miliSaniyeSure;
  while GetTickCount < zaman do
  begin
    Application.ProcessMessages;
    Sleep(1);
  end;
end;

Kod: Tümünü seç

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  bekle( 3000 );
  showmessage(' 3 saniye oldu...');
end;

[AliZairov]

Teşekkürler Muharrem abi tam istediğim gibi oldu.