ALPA Site Kurucusu
Mesaj Sayısı : 815 Nerden : Ankara Kayıt tarihi : 02/03/09 Rep Puanı : 32
| Konu: Delphi'de Web Browser Yapalım Çarş. Nis. 08, 2009 5:27 pm | |
| Bu dersimizde web browser yapmayı öğreneceğiz. Sistemi kasmayan bir özelliğe sahip olmasını istiyoruz.
Formumuza:
<ul> <li><span style="color: red;">1 Combobox</span></li> <li><span style="color: red;">5 tane command button</span></li> <li><span style="color: red;">1 webbrowser</span></li> </ul>
oluşturduk. Şimdi kod kısmına gelelim.
Web Browser kısmına:
<ul> <li><code style="white-space: nowrap;"><code><span style="color: #000000;"><span style="color: #0000bb;">WebBrowser1</span><span style="color: #007700;">.</span><span style="color: #0000bb;">Navigate</span><span style="color: #007700;">(</span><span style="color: #0000bb;">combobox1</span><span style="color: #007700;">.</span><span style="color: #0000bb;">Text</span><span style="color: #007700;">); </span></span></code></code></li> </ul>
Git butonuna:
<ul> <li><code style="white-space: nowrap;"><code><span style="color: #000000;"><span style="color: #0000bb;">WebBrowser1</span><span style="color: #007700;">.</span><span style="color: #0000bb;">GoForward</span><span style="color: #007700;">;; </span></span></code></code></li> </ul>
Ana Sayfa Butonuna;
<ul> <li><code style="white-space: nowrap;"><code><span style="color: #000000;"><span style="color: #0000bb;">WebBrowser1</span><span style="color: #007700;">.</span><span style="color: #0000bb;">GoHome</span><span style="color: #007700;">;</span></span></code></code></li> </ul>
Geri Butonuna;
<ul> <li><code style="white-space: nowrap;"><code><span style="color: #000000;"><span style="color: #0000bb;">WebBrowser1</span><span style="color: #007700;">.</span><span style="color: #0000bb;">GoBack</span><span style="color: #007700;">;</span></span></code></code></li> </ul>
İleri Butonuna;
<ul> <li><code style="white-space: nowrap;"><code><span style="color: #000000;"><span style="color: #0000bb;">WebBrowser1</span><span style="color: #007700;">.</span><span style="color: #0000bb;">GoForward </span></span></code></code></li> </ul>
Arama Butonuna;
<ul> <li><code style="white-space: nowrap;"><code><span style="color: #000000;"><span style="color: #0000bb;">WebBrowser1</span><span style="color: #007700;">.</span><span style="color: #0000bb;">GoSearch </span><span style="color: #007700;">; </span></span></code></code></li> </ul>
Çıkış efekti vermek için:
<ul> <li><code style="white-space: nowrap;"><code><span style="color: #000000;"><span style="color: #0000bb;">FORM1</span><span style="color: #007700;">.</span><span style="color: #0000bb;">Close</span><span style="color: #007700;">; </span></span></code></code></li> </ul>
Kolay gelsin. | |
|