Cara Membuat Hide To Tray dengan Baloon Message

Dalam pembuatan suatu program aplikasi dengan delphi, bagusnih kalau di terapkan ke dalam aplikasi yang kamu buat agar terlihat lebih simple dan minimalis.

Disini saya menggunakan komponen TrayIcon yang punya Busines Skin Form (BSF), jadi sebelum menggunakan cara ini download dan install dulu komponen BSF di delphi kamu, Business Skin Form | Mempercantik Form Delphi.

Pertama ambil komponen bsTrayIcon di tab komponen BSF VCL, letakkan pada form dan masukkan ini kedalam Events > onDblClick pada komponen bsTrayIcon masukkan code ini.

if Visible then begin

Application.Minimize;

end else begin

Show;

Application.Restore;

end;

Sekarang kita akan membuat Balloon Message nya. Masuk ke tab Events > onHide pada Events Form, dan masukkan ini.

bsTrayIcon1.ShowBalloonHint('SketBook Tutorial',

'Minimize To Tray..' + #13 +

'Klik 2x Untuk Buka Kembali',

bsbitInfo);

disini kamu bisa merubah kalimat pesan yang nantinya akan muncul sebagai Baloon Message nya.

Sekarang coba RUN (F9) dan coba klik minimize, jika berhasil maka akan tampak seperti pada gambar GIF diatas. yang mau source codenya juga silahkan ambil saja.

Download Source Code