Message Form Tasarımı

[Nomercy]

Arkadaşlar Ben Message Bölümünü Form Tasarımı Olarak Yaptım.

Program Açılırken İnternet Bağlantısını Kontrol Ediyor. İnternet Yoksa Program FrmBaglantiYok Formunu Çağırmak İstiyorum Program Hata Veriyor.





Kullandığım Kodlar:

Kod: Tümünü seç

function isInternetConnected:boolean;
begin
Result := InternetGetConnectedState(nil, 0) ;
end;

Kod: Tümünü seç

begin
if isInternetConnected then
begin
WebBrowser1.Navigate('https://adslkota.turktelekom.com.tr/adslkota/jcaptcha');
end
else
begin
FrmBaglantiYok.Show;
Close;
end;
end;

[veski]

Close
komutunu kaldırıp FrmBaglantiYok formunun içerisine yerleştir.

[Nomercy]

Close
komutunu kaldırıp FrmBaglantiYok formunun içerisine yerleştir.

Onuda Yaptım Olmadı

[veski]

O zaman FrmBaglantiYok formunda bir problem var. Aynı kodları kopyalayıp çalıştırdım. Close komutunu buradan silince sorun çıkarmadan çalıştı.

[Nomercy]

O zaman FrmBaglantiYok formunda bir problem var. Aynı kodları kopyalayıp çalıştırdım. Close komutunu buradan silince sorun çıkarmadan çalıştı.

Proje Dosyasını Paylaşırmısın? Bir Bakayım Bende Çalışıyor mu?

[veski]

[u]FORM1 İÇERİĞİ[/u]
function isInternetConnected:boolean;
begin
Result := InternetGetConnectedState(nil, 0) ;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if isInternetConnected then
WebBrowser1.Navigate('https://adslkota.turktelekom.com.tr/adslkota/jcaptcha')
else
Form2.Show;
end;
[u]
FORM2 İÇERİĞİ[/u]
form1.close;
form2.Close;

[Nomercy]

FORM1 İÇERİĞİ
function isInternetConnected:boolean;
begin
Result := InternetGetConnectedState(nil, 0) ;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if isInternetConnected then
WebBrowser1.Navigate('https://adslkota.turktelekom.com.tr/adslkota/jcaptcha')
else
Form2.Show;
end;

FORM2 İÇERİĞİ
form1.close;
form2.Close;

Butona Yazınca Çalışıyo Doğru Ama Ben İlk Açılışta Kontrol Etmesini İstiyorum Program İlk Açıldığında Hata Veriyor.Yani OnCreate Olayına

[xozcanx]

Merhaba;
Kodlarınızı form1 in oncreate bölümüne değilde onactivate yada onshow kısmına yazın formlar sıra ile oluşturulduğu için form1 create esnasında kontrol yapıyorsunuz dolayısı ile form2 oluşmadığı için bu şekilde hata alıyorsunuzdur.
İyi çalışmalar.