12-25-2013, 03:41 PM
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
* klik 2x pada PopupMenu isikan Show dan Exit pada caption
![[Image: Untitled.png]](https://images.weserv.nl/?url=s20.postimg.cc%2Fexd81e68d%2FUntitled.png)
* isikan code dibawah pada type
^jika sudah ada prosedure FormCreate tambahkan yg belum ada
* tambahkan code pada Private declarations
* tambahkan code dibawah implementation
* tambahkan code di bawah {$R *.dfm}
^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 :
exit :
* Klik 2x pada Button yang anda pakai untuk Hide
^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
selesai ..
jika masi bingung pelajari source code yang saya sudah buat bisa di download dibawah ini
* yang diperlukan :
PopupMenu
-1 Button
tambahkan pada uses
Code:
ShellApi
* klik 2x pada PopupMenu isikan Show dan Exit pada caption
![[Image: Untitled.png]](https://images.weserv.nl/?url=s20.postimg.cc%2Fexd81e68d%2FUntitled.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:
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
[Only registered and activated users can see links Click here to register]