Cara Membuat Hide Form Delphi7 Dengan Message

Tutorial kali ini saya akan menjelaskan bagaimana cara agar applikasi delphi7 bisa di sembunyikan ke tray icon dengan menampilak pesan di pojok kanan bawah.
Oke... yang harus kalian lakukan adalah membuat project delphi7, atau bisa juga project yang sudah jadi.
kemudian tambahkan satu button, ini untuk menyembunyikan applikasi ke tray icon ketika di klik.
Sekarang kita masuk ke listing code programnya
Tambahkan ShellApi; pada uses

Kemudian diatas type tambahkan

Const
WM_CAllBack = WM_USER;

Selanjutnya diatas private tambahkan
 procedure WM_CALLBACKPRO(var msg : TMessage); message wm_callBack;

Dan tambahkan 
 kecil : HICON;
TrayIcon : TNotifyIconData;
pada variabelnya

Untuk lebih jelasnya lihat gambar dibawah ini, perhatikan yang di beri kotak merah

Setelah itu dibawah {$R *.dfm} tambahkan
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);
end;
end;
end;

Seperti gambar dibawah ini

Setelah itu double click pada Button yang baru ditambahkan tadi, kemudian masukkan script brikut
Form1.Visible := False;
Kecil := application.Icon.Handle;
Trayicon.cbSize := SizeOf(TNotifyIconData);
Trayicon.Wnd := handle;
Trayicon.szTip := 'Aplikasi Tray Icon // Double Click For Show';
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);
end;

Seperti gambar di bawah ini

nah sampai disini silahkan projectnya di save untuk yang belum menyimpannya.
kemudian klik run atau tekan F9, dan tes, apakah sudah bisa di hide apa kagak,
kalo udah bisa, kita lanjut ke message,
yaitu bagaimana agar applikasi tersebut menampilkan pesan ketika di hide ke tray icon.
namun sebelum itu anda harus mendownload file alert messagenya Disini
setelah selesai di download, extract file alert.dll ada ke folder project yang kalian buat tadi, kalo udah, kita masuk ke listing kodenya
Tepat dibawah {$R *.dfm} tambahkan
procedure ShowAlert(
AWidth,AHeight : integer;
AHeaderText, AMessageText : string;
AHeaderFontSize : integer;
ACaptionFrom,ACaptionTo,AFrame,AWindowFrom,AWindowTo : Cardinal;
ADisplayDuration : Cardinal;
AImage : string); stdcall; external 'Notification.dll';

Kemudian double click lagi button yang tadi (button hide to tray icon) dan tambahkan
showAlert(
250,  //  Lebar
70,  //  Tinggi
'Contoh Message Tray Icon',  //  Header Alert
'Application Hiden To Tray Created By Asrofy',   //  Pesan Alert
10,   //  Ukuran Font
clWhite,
clWhite,
clWhite,
clWhite,
clWhite,
1000, //  Durasi
'Icon.ico');  // Icon
letakkan scriptnya tepat dibawah begin
Langkah trakhir, Build Project1 atau Build All Project
kalo udah, sekarang tes, apakah sudah bisa menampilkan message? pastinya bisa donk..
untuk mengganti icon, tambahkan file ico dengan nama Icon pada folder yang sama, Oke
Jika ada pertanyaan silahkan berkomentar.

Selamat Mencoba dan Semoga Bermanfaat!!!!!!