Cara Membuat Form Terlihat Lembut - Delphi 7

Assalamualaikkum Warohmatullahi Wabarookatuh

Kali ini MasEdi Akan membagikan sedikit ilmu untuk membut Form Project Delphi menjadi Lembut.

Pada dasarnya trik ini hanya menggunakan 1 buah XPManifash yang terletak pada tab Win32 program delphi 7.

Untuk membuatnya, langsung kita Ke TKP

1. Buat 1 Form

2. Untuk bisa membedakan, siapkan 2 Button, dan 1 Label

3. Buka Tab Win32 dan tambahkan XPManifash 1 buah saja

4. Selesai

Penampakan : Penambahan XPManifash

Penampakan : Sebelum di tambahkan XPManifash

Penampakan : Setelah di Tambahkan XPManifash

Video Tutorial

=================================

=================================

DONASI KL1K 1KLAN

=================================

=================================

Tutorial Membuat Link Browser - Delphi7

Assalamualaikkum Warohmatullahi Wabarokaatuh

Kali ini MasEdi akan Memberikan Tutorial cara Membuat Link Browser di Delphi7

Link Brower berguna untuk menghubung ke ke sebuah link jika kita mengekliknya.

Pasti sudah mengerti kan !

Langsung Kita Ke TKP

• Jalankan Program Delphi7
• Pada Form Buat 1 Button

Penampakan 

• Double Click Button dan Masukkan Source Code berikut :

procedure TForm1.Button1Click(Sender: TObject);

begin

ShellExecute (0, 'Open', 'https://www.facebook.com/edisukarman', '', '', SW_SHOWNORMAL);

end;

====================================================

SEBELUM LANJUT KL1K 1KL@N DULU YA  

====================================================

• Ganti Huruf warna Merah dengan Link yang Sahabat Inginkan

Penampakan

• Masuk di Uses dan Masukkan ShellAPI

Penampakan

• Jalan Project Kalian, dan Lihat Keajaiban yang terjadi
• Demikian Tutorial Yang MasEdi Berikan
• Semoga Bermanfaat

Jika Sahabat Gagal, Silahkan Download

Tutorial Video

Tutorial Membuat Web Browser

Assalamualaikkum Warohmatullahi Wabarookaatuh

Kali ini Mas Edi Akan Membagikan Tutorial Membuat Simple Web Browser.

Penampakan :

Langsung Ke Tutorialnya

• Buka Program Delphi7
• Buat 4 Button, 1 Edit, 1 Web Penampakan :

Keterangan :

Sebelum Ke Coding K1ik 1k1an dulu 

List Source Code

• Form1

procedure TForm1.FormCreate(Sender: TObject);

begin

webbrowser1.Navigate('www.google.com');

end;

• Button1

procedure TForm1.Button_NameClick(Sender: TObject);

begin

webbrowser1.GoBack;

end;

• Button2

procedure TForm1.Button_NextClick(Sender: TObject);

begin

webbrowser1.GoForward;

end;

• Button3

procedure TForm1.Button_RefreshClick(Sender: TObject);

begin

webbrowser1.Refresh;

end;

• Button4

procedure TForm1.Button_SearchClick(Sender: TObject);

begin

webbrowser1.Navigate(Edit_web.Text)

end;

Jika Pusing, Silahkan Download Source Codenya

Tutorial versi Video