Merhaba arkdaşlar formu belirdediğim sürede ekranda göstermek istiyorum ve yine belirlediğim süre kadar ekranda kalmasını istiyorum ve sürekli bu şekilde devam etmesini istiyorum timer ile sleep komutu ile yapmya çalıştım ama olmadı slepp komutunda ekrandadaki kontroller gözükmüyor alternatifimiz nedir.
procedure TForm1.tmr1Timer(Sender: TObject);
begin
Form1.Show;
Sleep(1000);
form1.Hide;
end;
Formu belirlenen sürede ekranda göstermek ve bekletmek
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: Formu belirlenen sürede ekranda göstermek ve bekletmek
Sleep komutuyla main thread'i durduruyorsunuz o nedenle kontrolleri gösteremiyor.
Şu şekilde değiştirirseniz sanırım çalışacaktır. Denemedim o nedenle emin değilim.
Şu şekilde değiştirirseniz sanırım çalışacaktır. Denemedim o nedenle emin değilim.
Kod: Tümünü seç
procedure TForm1.tmr1Timer(Sender: TObject);
begin
if Form1.Showing then // ilk başta bu False olacağı için Show çalışacak.
begin
Form1.Hide;
tmr1.Active := False; // Tekrar tekrar yapmaması için...
end
else
begin
Form1.Show;
end;
end.
Re: Formu belirlenen sürede ekranda göstermek ve bekletmek
Teşekkürler ama olmadı yani aslında yapmak istedeğim her 5 saniyeye bir form ekrana gelecek ama ekranda 1 veya 2 saniye kalacak bu şekilde tekrar edecek.
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Visible:=False;
end;
end.
procedure TForm1.tmr1Timer(Sender: TObject);
begin
if Form1.Showing then // ilk başta bu False olacağı için Show çalışacak.
begin
Form1.Hide;
//tmr1.Enabled:=False;
end
else
begin
Form1.Show;
end;
end;
Bu şekilde 5 saniyede bir ekrana geliyor ve 5 saniye kalıyor.
2.bir timer eklesek ekranda kalma süresini belirlemek için nasıl yapabiliriz
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Visible:=False;
end;
end.
procedure TForm1.tmr1Timer(Sender: TObject);
begin
if Form1.Showing then // ilk başta bu False olacağı için Show çalışacak.
begin
Form1.Hide;
//tmr1.Enabled:=False;
end
else
begin
Form1.Show;
end;
end;
Bu şekilde 5 saniyede bir ekrana geliyor ve 5 saniye kalıyor.
2.bir timer eklesek ekranda kalma süresini belirlemek için nasıl yapabiliriz
Re: Formu belirlenen sürede ekranda göstermek ve bekletmek
Kod: Tümünü seç
procedure TForm1.FormCreate(Sender: TObject);
begin
Form2.Visible := False;
Timer1.Interval := 5000;
Timer2.Interval := 2000;
Timer1.Enabled := True;
Timer2.Enabled := False;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
Form2.Show;
Timer2.Enabled := True;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Timer2.Enabled := False;
Form2.Hide;
Timer1.True := True;
end;
C. Sunguray
csunguray at netbilisim.kom
Net Bilişim Hizmetleri
Sıradan her programcı bilgisayarın anlayabileceği kodlar yazabilir.
Sadece iyi programcılar insanların da anlayabileceği kodlar yazarlar.
Martin Fowler (http://martinfowler.com/)
csunguray at netbilisim.kom
Net Bilişim Hizmetleri
Sıradan her programcı bilgisayarın anlayabileceği kodlar yazabilir.
Sadece iyi programcılar insanların da anlayabileceği kodlar yazarlar.
Martin Fowler (http://martinfowler.com/)
Re: Formu belirlenen sürede ekranda göstermek ve bekletmek
Tamam kardeşim şimdi oldu teşekkür ederim Allah razı olsun kolay gelsin