Current time: 07-17-2018, 07:02 AM Stay in touch via Twitter Facebook RSS Feed
Ada Baiknya anda baca Peraturan Forum ForNesia Disini Dan Disitu Sebelum Terlambat!
System Registration Forums Mulai Kedepan Sewaktu waktu akan Di Tutup.
Silahkan Dibaca Mengenai Auto Pruning User . Agar tidak ada pertanyaan lagi tentang kehilangan akses forum.



Membuat Hide To Tray Delphi

12-25-2013 04:41 PM Membuat Hide To Tray Delphi
#1


suryadewa Away
NewBie
Administrators
*********

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

[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

http://www.suryadewa.com
02-22-2014 07:30 PM RE: Membuat Hide To Tray Delphi
#2


Aiden Away
ForNesia Family
Registered
*

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.




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

Search thread:


[-]
Advertisement