Neler yeni
Türkiye'nin En Güncel Forum Sitesi

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Delphi'de Web Browser Yapalım

ByOnur58

Kayıtlı Üye
MFC Üyesi
  • Üyelik Tarihi
    7 Ocak 2015
  • Mesajlar
    2,114
  • MFC Puanı
    10
  • MFC Seviyesi

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.
 
Üst Alt