[suryadewa]

Membuat Hide To Tray Delphi dengan button gampang gampang susah :s, langsung saja perhatikan step by step Tut nya ya ..:heart:

* yang diperlukan :

PopupMenu
-1 Button

tambahkan pada uses

Code:

ShellApi

* klik 2x pada PopupMenu isikan Show dan Exit pada caption

[Image: Untitled.png]

* isikan code dibawah pada type

Code:

procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);

^jika sudah ada prosedure FormCreate tambahkan yg belum ada

* tambahkan code pada Private declarations

Code:

private
    { Private declarations }
    TrayIcon: TNotifyIconData;
    procedure ShowPopupMenu;

* tambahkan code dibawah implementation

Code:

procedure TForm1.ShowPopupMenu;
var
CurPos: TPoint;
begin
GetCursorPos(CurPos);
SetForegroundWindow(Self.Handle);
PopupMenu1.Popup(CurPos.x, CurPos.y);
PostMessage(Self.Handle, WM_NULL, 0, 0);
end;

* tambahkan code di bawah {$R *.dfm}

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
TrayIcon.cbSize := SizeOf(TrayIcon);
TrayIcon.Wnd := Self.Handle;
TrayIcon.uID := 0;
TrayIcon.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
TrayIcon.uCallbackMessage := WM_MOUSEMOVE;
TrayIcon.hIcon := Application.Icon.Handle;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE, @TrayIcon);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if X = 517 then
ShowPopupMenu;
end;

^jika dalam source anda sudah ada procedure TForm1.FormCreate(Sender: TObject); berarti code disisipkan aja dengan procedure yg sudah ada.. uwik2 sndiri ya :angel:

* oke lanjutkan . klik 2x pada show dan exit di popupmenu dan masukan code pada masing2 procedure

show :

Code:

procedure TForm1.Show1Click(Sender: TObject);
begin
Form1.Visible:=true;
Shell_NotifyIcon(NIM_DELETE, @TrayIcon);
Application.Restore;
end;

exit :

Code:

procedure TForm1.Exit1Click(Sender: TObject);
begin
    Application.Terminate;
end;

* Klik 2x pada Button yang anda pakai untuk Hide

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
Shell_NotifyIcon(NIM_ADD, @TrayIcon);
Form1.Visible:=false;
end;

^ubah dan sesuaikan pada Button1Click menurut name button yg anda pakai

setelah semua langkah diatas selesai klik object dan arahkan pada form1 lalu isikan pada menu event "OnCreate" / "OnDestroy" / "OnMouseMove" seperti pada gambar di spoiler bawah

Spoiler:

[Image: image.png]

selesai ..

jika masi bingung pelajari source code yang saya sudah buat bisa di download dibawah ini

Code:

http://www.tusfiles.net/4o5etaowrwbl
http://www.tusfiles.net/22eogttcg0ck

[Aiden]

Keburu dibilang rada susah sih di atas, jadi ambil yang sudah mateng aja dah. sekali lagi thank's banget om. wah: