Minimize Tray Icon Delphi7

Tutorial kali ini saya posting mengenai Minimize Tray Icon di delphi, Tray icon biasanya ada pada sudut bawah taskbar windows berdekatan dengan jam di komputer. Pengen kan kalau bisa minimize program tapi bisa ke tray icon.. untuk menghemat tempat di taskbar windows. Langsung saja Ke Tutorialnya

Langkah Pertama Buka Aplikasi Delphi

• New application
• save all
• simpan pada folder yg telah ditentukan

Langkah Kedua Tambahkan Komponen

• Button
• Popupmenu

Langkah Ketiga Masukan Listing Code Programnya

Pada Uses Paling Atas Tambahkan 

ShellApi;

Seperti contoh dibawah ini

Kemudian tambahkan

Const
WM_CAllBack = WM_USER;


Seperti contoh dibawah ini (Letakkan di atas type)

Tambahkan

 procedure WM_CALLBACKPRO(var msg : TMessage); message wm_callBack;

Seperti contoh dibawah ini

Kemudian Tambahkan

var

 kecil : HICON;

 TrayIcon : TNotifyIconData; 

Seperti dibawah ini

Kemudian Tambahkan

Uses comobj; 

Kemudian 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);
PopupMenu1.Popup(p.X,p.Y);
end;
end;
end;

Kemudian tambahkan lagi pada button click
procedure TForm1.Button1Click(Sender: TObject);
begin
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;

Kemudian tambahkan pada Close di popupmenu1

procedure TForm1.Close1Click(Sender: TObject);
begin
Halt;
end;

Kemudian tambahkan pada About di popupmenu1

procedure TForm1.Show1Click(Sender: TObject);
begin
ShowMessage('Aplikasi Tray Icon');
end;

Selesai deh... Silahkan Run dengan Ctrl F9 (untuk menditeksi Error) Lalu Tekan F9


Untuk listing code lengkapnya dibawah ini :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, acPNG, StdCtrls, XPMan, Menus, ShellApi;

Const
WM_CAllBack = WM_USER;
type
  TForm1 = class(TForm)
    XPManifest1: TXPManifest;
    Panel1: TPanel;
    Button1: TButton;
    Label1: TLabel;
    Image1: TImage;
    Label2: TLabel;
    Bevel1: TBevel;
    Label3: TLabel;
    Timer1: TTimer;
    PopupMenu1: TPopupMenu;
    Show1: TMenuItem;
    N6: TMenuItem;
    Close1: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Close1Click(Sender: TObject);
    procedure Show1Click(Sender: TObject);
    procedure WM_CALLBACKPRO(var msg : TMessage); message wm_callBack;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  kecil : HICON;
  TrayIcon : TNotifyIconData;

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;
{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label3.Caption:=TimeToStr(now);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
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;

procedure TForm1.Close1Click(Sender: TObject);
begin
Halt;
end;

procedure TForm1.Show1Click(Sender: TObject);
begin
ShowMessage('Aplikasi Tray Icon');
end;

end.

Demikianlah Artikel tentang Minimize Tray Icon Delphi7

Sekian dulu artikel tentang Minimize Tray Icon Delphi7, mudah - mudahan bisa memberi manfaat untuk anda semua. jika anda masih binggung atau belum jelas tentang artikel yang saya sampaikan anda bisa berkomentar dan jika anda juga ingin requset tentang beberapa ( Akun SSH Premium,inject PC,Config Http injector,Config KPN,config Eproxy.config Open VPN dan tips dan trick ). di kolom komentar. jika artikel yang saya berikan bermanfaat dan berguna anda juga bisa share artikel saya ke teman teman anda semua ( berbagi itu indah )

• Tweet
• Share
• Share
• Share
• Share

About Admin

Halo Sobat Blogger, Saya Hanyalah Seorang Blogger Pemula dan Saya Berharap Anda dan Saya Bisa Berhasil dan Sukses Kedepannya. Selamat Datang Teman Teman Dan Terima Kasih Sudah Berkunjung Diblog Website kami.

Related Post