Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Membuat Hide To Tray Delphi
#1
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

Show ContentSpoiler:

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]
Reply
#2
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.
Reply
  


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