webbrowser we button

[webaytek]

elimde 16 adet buton olan bir form war.
Bir de WebBrowser1

Buton isimleri : WebAdresleri
buton1.caption:=http://www.bir.com;
buton2.caption:=http://www.iki.com;
falan falan 16 ya kadar dewam ediyor.

HERHANGİ bir butona basınca O Butona ait Captiondaki adrese gitmesini nasıl sağlarım

Sorum daha çok kodları kısaltma üstüne...
Her butona ayrı kod vermek yerine bir procedure üzerinden bir değişken (caption) yardımıyla adrese yönelmek

[P206]

Tüm editlerin Onclick lerni Aynı yap. Daha sonra bu eventin içine

Kod: Tümünü seç

 webadresi:=Tbutton(sender).caption;

ile webadresi değişkenine adresi alırsın. Gerisi kolay zaten

[webaytek]

çok teşekkür ederim

bana bu sender property falan ile ilgili kaynak bilen warsa link aliim de
sizi daha çok rahatsız etmiim (çok basit şeyler aslında )

[mussimsek]

Bkz : imzamdaki yazı.

Forum ve forumdaki tüm kaynaklar var o yazıda.

[webaytek]

Bir webbrowser yapmak istiyorum da


her girdiğim adresin kısayolunu istediğim bir klasöre url olarak veya

1log dosyası içine sırayla eklenerek kaydetmemin bir yolu war mı

veya alternatif herhangi bişey

[mege]

istediğin url'yi

Kod: Tümünü seç

[DEFAULT]
BASEURL=http://www.deneme.com.tr/
[InternetShortcut]
URL=http://www.deneme.com.tr/

dosyaadı.url olarak keydedersen bu url olur..

log tutacaksan tutacağın dosyayı bir tstringlist ile aç
satırı ekle kapat

[gkimirti]

3. seminerin ppt sunusunu bastan sona oku
zamanın varsa videosunu da izle.

[webaytek]

kusuruma baqmayın ancak ben seminerlerin ppt sunularını bulamıyorum
Nerededir acep

Bu arada DelphiTurkiye sitesini zaten Seminer videoları sayesinde tanıdım
wallahi helal olsun

[mussimsek]

seminer ppt

yaz, Bütün terimler için ara seçeneği seç Ara

şu aramayı öğrensen sırtın yere gelmez dedik ama sakalımız yok ondan heralde

[webaytek]

Mustafa abi yapma gözünü seviim ara ara nereye kadar kopcam şimdi

[webaytek]

Kod: Tümünü seç

if web.Navigate(edit1.text):=true; then
   begin
   label1.caption:='Hadi kalkın gidiozzz'
   end
else
   begin
   label1.caption:='Adresi Kontrol et';
   end
End;

koddaki hata şu: Type of expression must be boolean // benim bildiğim boolean yapılmış durumda ama
Çözemedim hadi bi el atalım arkadaşlar

[freeman35]

Kod: Tümünü seç

if web.Navigate(edit1.text)='True' then begin 
   label1.caption:='Hadi kalkın gidiozzz';
end else begin 
   label1.caption:='Adresi Kontrol et'; 
end;

yazdığın kodla biraz uğraş, yazım hatası yapmışın sana yaptığın hatayıda yazıyor. ilk takıldığın anda sorma yoksa bu işi öğrenemezsin

Kolay gele

[webaytek]

yok walla denemesem yazar mıyım baq senin yaptığın da olmadı
biraz zorladım ben de aslında ama olmuyoo