Skip to main content

Menyembunyikan form di system tray dengan delphi XE

Bagaimana caranya menyembunyikan form delphi ke dalam system tray?

Waktu itu saya pernah membuat sebuah aplikasi semacam task scheduler yang dapat memproses dan mengirimkan semua email notifikasi ke setiap user yang bersangkutan.

Semacam aplikasi sms server lah namun kalau sms server yang dikirim adalah sms melalui server, nah yang saya buat ini yang dikirim adalah email.

Apa sih tujuan dibuatnya aplikasi semacam itu?

Kalau misalnya kamu bekerja di sebuah perusahaan yang tidak memiliki tenaga ahli dibidang IT, maka terkadang untuk melakukan tugas-tugas yang simple dan sepele seperti mengirimkan email notifikasi seperti ini saja bisa jadi akan dibutuhkan yang namanya tenaga kerja administrasi tambahan.

Sudah pasti perusahaan tidak akan suka dengan hal tersebut karena menambah tenaga kerja, sama saja dengan menambah biaya pengeluaran perusahaan. Benar ngga?

Padahal sebenarnya hal tersebut bisa dilakukan dengan sistem aplikasi yang telah dibuat sedemikian rupa sesuai dengan kebutuhan perusahaan yang bersangkutan, atau bisa saja menggunakan aplikasi semacam visualcron yang dapat anda download untuk menjalankan task yang anda inginkan, agar dapat mengurangi biaya pengeluaran perusahaan.


Nantikan saja artikel mengenai cara mengirimkan email dengan delphi di artikel berikutnya.

 

Menyembunyikan form delphi ke dalam system tray

Buka IDE Delphi XE kamu, kemudian buatlah sebuah project baru. Hanya 1 form yang akan kita butuhkan disini. Tempatkan 2 buah button ke dalamnya dan atur properties kedua button tersebut menjadi seperti berikut ini.
Button 1

Caption: Hide to system tray, Name: BtnHide

Button 2

Caption: Esc - Close, Name: BtnClose

 

Tempat kan sebuah TTrayIcon, TImageList dan TTimer ke dalam form dan atur properties dari masing-masing control tersebut menjadi seperti berikut ini.
TTrayIcon

Name: TrayIcon1

TImageList

Name: ImageList1

TTimer

Name: Timer1

Interval: 2000

Enabled: False

Tambahkan sebuah icon ke dalam ImageList. Disini saya menggunakan icon bergambar amplop biru dan bernama mail.ico, silahkan jika anda ingin menggantinya dengan icon kesukaan anda.

Kira-kira nanti bentuk form1 nya akan menjadi seperti gambar berikut ini :

layout-delphi-system-tray.png

 

Full source code :

[code language="delphi"]

unit Unit5;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ImgList, Vcl.ExtCtrls;

type
TMAIN_FRM = class(TForm)
TrayIcon1: TTrayIcon;
ImageList1: TImageList;
BtnHide: TButton;
BtnClose: TButton;
Timer1: TTimer;
procedure BtnHideClick(Sender: TObject);
procedure BtnCloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure FormResize(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure TrayIcon1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MAIN_FRM: TMAIN_FRM;
FRMStatus: Integer;

implementation

{$R *.dfm}

procedure TMAIN_FRM.BtnCloseClick(Sender: TObject);
begin
application.Terminate;
end;

procedure TMAIN_FRM.BtnHideClick(Sender: TObject);
begin
Self.WindowState:=wsMinimized;
end;

procedure TMAIN_FRM.FormCreate(Sender: TObject);
var
MyIcon : TIcon;

begin
//Application.OnMinimize:=OnMinimize;
TrayIcon1.Icons := TImageList.Create(Self);
MyIcon := TIcon.Create;
MyIcon.LoadFromFile('mail.ico');
TrayIcon1.Icon.Assign(MyIcon);
TrayIcon1.Icons.AddIcon(MyIcon);
FRMStatus:=1;
end;

procedure TMAIN_FRM.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #27 then application.Terminate;
end;

procedure TMAIN_FRM.FormResize(Sender: TObject);
begin
if MAIN_FRM.windowstate = wsMinimized then
begin
MAIN_FRM.Hide();
TrayIcon1.Visible := True;
TrayIcon1.BalloonHint := 'Your apps - Now hidding in system tray !';
TrayIcon1.BalloonFlags := bfInfo;
TrayIcon1.ShowBalloonHint;
FRMStatus:=2;
end;
end;

procedure TMAIN_FRM.FormShow(Sender: TObject);
begin
if FRMStatus = 1 then
Begin
Timer1.Enabled:=True;
End;
end;

procedure TMAIN_FRM.Timer1Timer(Sender: TObject);
begin
MAIN_FRM.WindowState:=wsMinimized;
Timer1.Enabled:=False;
end;

procedure TMAIN_FRM.TrayIcon1Click(Sender: TObject);
begin
TrayIcon1.Visible := False;
Show();
WindowState := wsNormal;
Application.BringToFront();
FRMStatus:=1;
end;

end.

[/code]

 

Selamat mencoba dan semoga bermanfaat buat kalian :)

Tonton video tutorialnya disini dan anda tentu saja dapat menemukan link download full source codenya dari sana.

https://www.youtube.com/watch?v=13Uy1RaN9vI
Labels:

Comments

Post a Comment

Popular posts from this blog

Tips Jitu Cara Mengatasi Error Pada Saat Compile Aplikasi Menggunakan Visual Basic 6

Sebenarnya ada banyak sekali nih project yang harus saya kerjakan dikantor. Namun terkadang apa yang kita rencanakan sering kali berbeda dengan kenyataan. Maksud hati ingin focus dulu ke satu project, tapi karena adanya satu dan lain hal, akhirnya terpaksa deh harus melakukan modifikasi dan membuka project lama yang sebenarnya saya sudah malas untuk berhubungan lagi dengannya :) Project ini sudah dibangun dari awal tahun 2000-an, jauh sebelum saya join. Ya intinya saya dapat warisannya lah seperti itu. Di bangun masih dengan menggunakan vb5-vb6 waktu itu. Sekarang sudah tahun 2016. Jadi sudah lama ya sob. Sudah ketinggalan jaman lah kurang lebih. Meskipun sudah tua, tapi menurut saya visual basic tetap menjadi bahasa pemrograman yang masih powerful. Masalah Kompatibilitas Nah masalah terbesar dalam menggunakan program-program lawas seperti itu biasanya ada pada kompatibilitas component-componentnya. Karena hardware dan os yang kita gunakan biasanya akan berubah seiring waktu. Jika soba...
Post a Comment
Read more

Kapan Kita Bisa Gajian dari youtube atau google adsense ?

Kapan kita bisa gajian dari youtube atau google adsense ? Ya pertanyaan ini memang seringkali muncul dari berbagai youtuber baru termasuk saya pada waktu itu dan orang-orang awam yang memang penasaran dengan uang yang dapat dihasilkan dari youtube. Sebagai youtuber yang memang sudah pernah merasakan gajian dari youtube, maka saya akan mencoba untuk berbagi sedikit pengalaman saya. Siapa tahu bermanfaat buat teman-teman yang sedang penasaran karena tak sabar menantikan datangnya pembayaran adsense untuk pertama kali. Sama halnya seperti menunggu gaji pertama saat kita bekerja. Pembayaran google adsense akan dapat dilakukan setelah saldo kita mencapai ambang batas minimum pembayaran yaitu 100 dollar atau kalau dirupiahkan sekitar Rp 1.300.000. Kurang dari itu maka proses pembayaran tidak dapat dilakukan meskipun sudah masuk tanggal pembayaran yang biasanya dilakukan oleh google. Untuk tanggal pembayarannya sendiri biasanya akan dilakukan atau diproses di tanggal 21-25 setiap bulannya...
4 comments
Read more

Penjumlahan Inputbox Secara Otomatis Di HTML, Php, Dan JQuery

Hai sobat yadishare apa kabar? Sudah hari sabtu lagi nih. Iseng-iseng ah pengen nulis mengenai html dan jquery. Ketika kita membangun sebuah aplikasi menggunakan php, seringkali kita harus membuat sebuah penjumlahan antar textbox secara otomatis agar memudahkan user. Misalnya kita memiliki 3 buah inputbox yang kita buat dengan menggunakan HTML yang terdiri dari sub total, ppn, dan grand total. Kemudian setiap kali kita menginputkan angka ke dalam textbox sub total dan textbox ppn tersebut, kita ingin textbox grand total jumlahnya terhitung secara otomatis agar dapat memudahkan user. Lalu bagaimana caranya? Nah untuk dapat melakukannya, kita pasti butuh cara yang mudah dan cepat bukan? Ada banyak cara yang dapat kita lakukan untuk mewujudkan hal tersebut. Salah satunya adalah dengan menggunakan bantuan JQuery. Pertama kalian bisa download file jquery.js disini . Masukkan ke dalam folder assets/js. Kalian juga dapat menambahkan script berikut ini tanpa harus mendownload f...
Post a Comment
Read more