Membuat Hide To Tray Delphi

***suryadewa*** · 12-25-2013 04: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

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 :

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 · 02-22-2014 07:30 PM

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

12-25-2013 04:41 PM	Membuat Hide To Tray Delphi #1
*suryadewa* NewBie Posts: 341 Joined: Oct 2013 Reputation: FCoin: 93.00ƒc	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 * 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` http://www.suryadewa.com
WwW Find Reply

02-22-2014 07:30 PM	RE: Membuat Hide To Tray Delphi #2
Aiden ForNesia Family Posts: 34 Joined: Dec 2013 Reputation: FCoin: 2.00ƒc	Keburu dibilang rada susah sih di atas, jadi ambil yang sudah mateng aja dah. sekali lagi thank's banget om. wah: Aiden, proud to be a member of suryadewa forum since Dec 2013.
Find Reply

Possibly Related Threads...
Thread:		Author	Last Post
	[Share] Membuat Aplikasi Trial Dengan Delphi Berdasarkan Fungsi Waktu (tanggal, bulan, tahun)	harvien29	05-26-2015 05:30 PM Last Post: icarusdc
	[Share] Membuat Multi Select skin Delphi	suryadewa	03-13-2015 12:46 PM Last Post: n3tcut

Advertisement