Cara Membuat Minimize to Tray Dengan Balloon Message

11:18 AM
Cara Membuat Minimize to Tray Dengan Balloon Message [ Delphi ] - 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.
  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

Artikel Terkait

Previous
Next Post »
Blogger
Disqus
Pilih Sistem Komentar Yang Kamu Sukai

1 comment

thanks lagi butuh eh nemu disini

Balas