Form1 den Form2 ye geçiş

[ozcank]

Arkadaşlar Merhaba;
Form1 de 5 sn bekleyip Form2 açtırmak istiyorum ama bir türlü olmadı
Sleep(50000) Kullandım olmadı yardımcı olabilir misiniz?

Yapmak istediğim Form1 ' e Logo koydum ve Form1 Kenarlarını kaldırdım kullanıcı reklamı gördükten sonra Form2 de buttonlar var ordan devam edecek.

[dicle_gsm]

Kod: Tümünü seç

procedure Delay(dwMilliseconds: Longint);
var
  iStart, iStop: DWORD;
begin
  iStart := GetTickCount;
  repeat
    iStop := GetTickCount;
    Application.ProcessMessages;
    Sleep(1);
  until (iStop - iStart)>= dwMilliseconds;
end;

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
Delay(5000);
Form2.Showmodal; 
veya
Form2.Show;
end;

[ozcank]

Bu hatayı alıyorum ;

Kod: Tümünü seç

procedure TForm1.FormActivate(Sender: TObject);
begin
Delay(5000);
Form1.Hide;
Form2.Show;
end;

---------------------------
Debugger Exception Notification
---------------------------
Project MADENPRJ1.exe raised exception class EInvalidOperation with message 'Cannot change Visible in OnShow or OnHide'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

[Warning] MADENGIRIS.pas(49): Comparing signed and unsigned types - widened both operands

[xxxjedixxx]

Sleep yerine timer kullanın. timer'ın interval'ini 5000 yapın ve enabled false yapın. Form1'in OnShow'unda Timer1.enabled := true; yapın.
Timer'ın Ontimer event'inde Timer'ı tekrar disable yapın ve form2.show yapın. Takılırsanız daha detaylı yazarım.

[ertank]

Arkadaşlar Merhaba;
Form1 de 5 sn bekleyip Form2 açtırmak istiyorum ama bir türlü olmadı
Sleep(50000) Kullandım olmadı yardımcı olabilir misiniz?

Yapmak istediğim Form1 ' e Logo koydum ve Form1 Kenarlarını kaldırdım kullanıcı reklamı gördükten sonra Form2 de buttonlar var ordan devam edecek.

Merhaba,

Aşağıdaki linkteki örnek uygulamayı kullanarak kendi uygulamanızı düzenleyebilirsiniz. Uygulama kodları forum içinde çok alan kaplayacağı için örnek uygulama göndermeyi daha uygun buldum.
formshow.7z