Delphi'de Web Browser Yapalım

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.