Friday, September 27, 2013
Minimaze to Systray dengan Code Delphi
Minimaze to Systray atau sering juga di sebut Tray Icon. Sobat Delphi Tutor Tahu kan apa itu ?
Masalahnya saya sendiri bingung mau menjelaskan bagaimana. :)
agar tidak sama-sama bingung contoh screen shootnya Seperti di bawah ini
sudah tahu kan ? nah, sekarang mari kita belajar bagaimana membuat aplikasi agar pada saat di minimaze jadi kayak gambar diatas (mengecil ke systray) caranya mudah kok. ikuti saja step-step berikut :
1. Buka Delphi Anda dan Desain Sesuka Hati
2. Tambahkan 1 Buah Popup Menu dan buat 2 menu di dalam popup menu anda (About & Close) Seperti gambar di bawah ini
3. Tambahkan sebuah Button
4. Tambahkan ShellApi Pada Uses Anda seperti di bawah ini
uses
... , shellapi;
5. Tambahkan Konstanta sebelum Code type
Const
WM_CAllBack = WM_USER;
type
....
6. Tambahkan Prosedur Baru
procedure WM_CALLBACKPRO(var msg : TMessage); message wm_callBack;
7. Deklarasikan Variabel berikut (global)
kecil : HICON;
TrayIcon : TNotifyIconData;
8. Tambahkan Code berikut di bawah implementation
implementation
Uses comobj;
procedure TForm1.WM_CALLBACKPRO(var msg : TMessage);
var
p : TPoint;
begin
case msg.LParam of
WM_LBUTTONDOWN :
begin
Shell_NotifyIcon(NIM_DELETE,@TrayIcon);
Form1.Visible := True;
end;
WM_RBUTTONDOWN :
begin
GetCursorPos(p);
PopupMenu1.Popup(p.X,p.Y);
end;
end;
end;
9. Klik dua kali Button yang telah anda tambahkan dan letakan kode berikut didalamnya
Form1.Visible := False;
Kecil := application.Icon.Handle;
Trayicon.cbSize := SizeOf(TNotifyIconData);
Trayicon.Wnd := handle;
Trayicon.szTip := 'Click Untuk Memunculkan';
Trayicon.uID := 1;
TrayIcon.hIcon := Kecil;
TrayIcon.uCallbackMessage := WM_CAllBack;
Trayicon.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
Shell_NotifyIcon(NIM_ADD,@trayicon);
10. Klik dua kali Popup menu anda kemudian klik menu Close dan tambahkan kode berikut
Halt;
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment