Skrip-skrip berikut digunakan untuk menempatkan ikon di SystemTray, sorry kalo masih ada kesalahan2 pada koding ini
uses ..., ShellAPI; const WM_ICONTRAY = WM_USER + 1; //User-defined message type ... var ... NotifyIconData : TNotifyIconData; implementation procedure Tfrmmain.FormCreate(Sender: TObject); begin with notifyicondata do begin hicon := icon.Handle; strpcopy(sztip, application.Title); wnd := handle; ucallbackmessage := wm_icontray; uid :=1; uflags := nif_message + nif_icon + nif_tip; cbsize := sizeof(tnotifyicondata); end; shell_notifyicon(nim_add,@notifyicondata); setwindowlong(application.Handle, gwl_exstyle,ws_ex_toolwindow); end; |
Syntax Highlighted with https://pascal-id.org/syntax |
-code diatas digunakan untuk memunculkan icon pada objectinspector Form1
-tambahkan popupmenu untuk listing code dibawah ini
-jangan lupa icon nya dikasih gambar yah... kalo nga nti binggung...
procedure tfrmmain.icontray(var Msg: Tmessage); var cursorpos : tpoint; begin if msg.LParam = wm_rbuttondown then begin getcursorpos(cursorpos); popupmenu1.Popup(cursorpos.X,cursorpos.Y); end else inherited; end; |
Syntax Highlighted with https://pascal-id.org/syntax |
-menampilkan dan menyembunyikan form
-tambahkan Exit dan Show pada item di popupmenu
procedure Tfrmmain.Show1Click(Sender: TObject); begin ; //shell_notifyicon(nim_delete,@notifyicondata); end; procedure Tfrmmain.Exit1Click(Sender: TObject); begin shell_notifyicon(nim_delete,@notifyicondata); application.ProcessMessages; application.Terminate; end; procedure Tfrmmain.FormClose(Sender: TObject; var Action: TCloseAction); begin action := canone; hide; //shell_notifyicon(nim_add,@notifyicondata); end; |
Syntax Highlighted with https://pascal-id.org/syntax |
Random Articles
- Membaca Ukuran "file-teks"
- Change case di Tedit
- Makna Pascal di Pascal Indonesia
- Verbal Expression, bikin mainan Regex dengan Pascal jadi gampang
- Menyembunyikan file dalam gambar dgn delphi
- Komponen --> Progress Bar
- New Zeos 6.6.3 Stable
- Preview TeeChart D6
- Cool Calculator
- Memanggil fungsi/prosedur di dalam DLL
Last Articles
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago