Cara Disable Right Click Context Web Browser di Project Delphi 7 - Sebelum ke tutorial, saya akan menjelaskan sedikit tentang Delphi 7.
Delphi 7 merupakan suatu aplikasi atau software perangkat lunak yang dapat digunakan untuk membuat aplikasi atau software berbasis ekstensi executable (.exe) yang dikembangkan oleh Borland Software Corporation. Bahasa yang ditawarkan di Delphi 7 ini adalah sebuah bahasa turunan dari bahasa pemrogramman lainnya seperti C#, Visual Basic dan lain-lain, yang disebut dengan bahasa Paskal Delphi 7. Jangan heran kok mirip Visual Basic yah.. hehehe memang begitulah Delphi 7 didesain sedemikian rupa agar memberikan kemudahan dalam menggunakan kode program, kompilasi yang cepat, penggunaan file unit ganda untuk pemrograman modular, pengembangan perangkat lunak, pola desain yang menarik serta diperkuat dengan bahasa pemrograman yang terstruktur dalam bahasa pemrograman Object Pascal Delphi 7.
Delphi 7 bisa digunakan untuk membuat aplikasi apa saja dan salah satunya disini adalah membuat Web Browser. Web Browser di Delphi 7 memanfaatkan Internet Explorer bawaan Windows agar dapat berjalan dengan baik. Apabila versi Internet Explorer Anda jadul biasanya jika Project Web Browser nanti Anda Run maka akan ngeblank atau tidak berjalan dengan sempurna. Makanya update dulu Internet Explorer ke versi terbaru. Di tutorial saya kali ini saya akan membagikan cara mematikan fungsi klik kanan Web Browser di Project Delphi 7 Anda.
Mematikan fitur klik kanan di Web Browser memang ada manfaatnya. Misalkan saja jika Anda membuat aplikasi Web Browser dan Anda tidak ingin link di aplikasi Anda diketahui oleh pengguna aplikasi Anda maka salah satu cara yang tepat adalah mematikan klik kanan sehingga pengguna aplikasi Anda tidak bisa mengintip link Anda, biasanya mereka memanfaatkan fitur klik kanan kemudian Properties maka akan terlihat Link Address yang sedang dibuka melalui Web Browser Delphi 7. Oke langsung saja kita lanjut ke tutorial.
1. Buka Delphi 7 Anda, lalu desain form project Delphi 7 Anda lalu beri nama judul Form terserah misalkan kita beri Caption "Test". Oke setelah itu alangkah baiknya Save Project terlebih dahulu dengan cara klik File - Save As (Save As berguna untuk menyimpan Unit / desain Form Anda), lalu cari folder untuk menyimpan Projectnya (saran saya bikin folder yang baru terlebih dahulu), setelah itu klik Save Project As (Save Project As berguna untuk menyimpan project sehingga kita bisa membukanya kapan saja nanti), lalu cari folder tadi (harus 1 folder sama yang tadi).
2. Pergi ke Tab Pallete yang bernama "Internet". Klik pada komponen "Web Browser" lalu taruh ke taruh ke Form Anda, Jika kurang jelas bisa lihat gambar dibawah ini.
3. Tambahkan komponen 1 Button ke Form Anda, caranya pergi ke Tab Pallete "Standard" dan klik pada komponen "Button".
4. Double Click pada komponen Button 1 (Tombol Buka Link), masukkan script Navigate Url seperti berikut.
Form1.WebBrowser1.Silent := True; // Mode silent aktif ketika membuka link
Form1.WebBrowser1.Navigate('http://wiradwis.blogspot.com/'); // Adalah script untuk membuka link dan teks berwarna merah bisa diganti dengan url Anda
end;
5. Sekarang coba kita run Project dengan menekan tombol F9 pada keyboard Anda atau bisa juga dengan klik tombol Run (Icon Play berwarna hijau) yang ada di dekat Pallete Delphi 7. Klik tombol "Buka Link", sekarang coba sorot kursor mouse Anda ke jendela Web Browser Delphi 7 Anda dan coba klik kanan, maka context menu klik kanan akan terbuka. Oke kita lanjut ke step 6 untuk memberi script agar tidak bisa diklik kanan.
6. Masukkan HookID: THandle; di variable global Delphi 7 tepatnya diatas implementation. Lihat gambar di bawah ini bila kurang jelas.
7. Masukkan script function sebagai berikut tepat dibawah {$R *.dfm}.
function MouseProc(nCode: Integer; wParam, lParam: Longint): Longint; stdcall;
var
szClassName: array[0..255] of Char;
const
ie_name = 'Internet Explorer_Server';
begin
case nCode < 0 of
True:
Result := CallNextHookEx(HookID, nCode, wParam, lParam)
else
case wParam of
WM_RBUTTONDOWN,
WM_RBUTTONUP:
begin
GetClassName(PMOUSEHOOKSTRUCT(lParam)^.HWND, szClassName, SizeOf(szClassName));
if lstrcmp(@szClassName[0], @ie_name[1]) = 0 then
Result := HC_SKIP
else
Result := CallNextHookEx(HookID, nCode, wParam, lParam);
end
else
Result := CallNextHookEx(HookID, nCode, wParam, lParam);
end;
end;
end;
8. Pada FormCreate (double klik area kosong di Form Delphi 7 Anda), masukkan script berikut.
HookID := SetWindowsHookEx(WH_MOUSE, MouseProc, 0, GetCurrentThreadId());
end;
9. Nah sekarang Anda Run lagi Project Anda. Dan coba klik Buka Link, kemudian setelah jendela url tujuan Anda tadi terbuka coba klik kanan pada area Web Browser Project Anda, dan hasilnya Anda tidak dapat mengklik kanan pada Web Browser tersebut :D Nah mudah sekali bukan ?
Sekian tutorial saya pada kesempatan kali ini, semoga bermanfaat bagi Anda semua khususnya yang sedang belajar Pemrograman Delphi 7. Bila ada yang kurang jelas bisa ditanyakan di kolom komentar dibawah ini :D
