Arsip: menempatkan icon dalam sistem tray

 
user image
more 14 years ago

marvel

ini buat yg belum tao and yg uda tao :wink:

uses
..., ShellAPI;
const
WM_ICONTRAY = WM_USER + 1; //User-defined message
type
...
var
...
NotifyIconData   : TNotifyIconData;
implementation
procedure Tform1.formcreate(sender:Tobject);
begin
 with NotifyIconData do
 begin
 hIcon := Icon.Handle;
 StrPCopy(szTip, Application.Title);
 Wnd := Handle;
 uCallbackMassage := WM_ICONTRAY;
 uID := 1;
 uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
 cbSize := sizeof(TNotifyIconData);
end;
shell_NotifyIconData(NIM_ADD,@NotifyIconData);
{ini bisa ditaruh di onMinimize ato yg lainnya yg diatas juga heheh...}
SetWindowLong(
 Application.Handle,
 GWL_EXSTYLE,
 WS_EX_TOOLWINDOW);
end;
[/code:1:10b8e9f714]
-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...

type
TForm1 = class(TForm)
....
private
 { Private declarations }
....
 procedure Icontray(
 var Msg: Tmessage); message WM_ICONTRAY;
public
 { Public declarations }
...
end;
procedure Tform1.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;
-menampilkan dan menyembunyikan form -tambahkan Exit dan Show pada item di popupmenu [code:1:10b8e9f714] procedure TForm1.Show1Click(Sender: TObject); begin Application.Restore; // Shell_NotifyIcon(NIM_DELETE,@NotifyIconData); end; procedure Tform1.FormClose( Sender : TObject; var Action : TCloseAction); begin Action := caNone; Hide; //Shell_NotifyIcon(NIM_ADD,@NotifyIcaonData); end; Procedure TForm1.Exit1Click(sender: TObject); begin Shell_NotifyIcon(NIM_DELETE,@NotifyIconData); Application.ProcessManager; Application.Terminate; end;
pertanyaannya... -pada even show1click aku menggunakana Application.Restore karena pada saat aku menggunakan Form1.Show; tidak terjadi apa2... -kira2 kenapa yah? - ada code yg lain buat nampilin form nya nga ? - Thanks - Selamat Mencoba
user image
more 14 years ago

cyber_hecker

OOT: good.. good.. nice job... kept working.. @[gak tau artinya, yang penting keliatan keren] kekekeke....
user image
more 14 years ago

LuriDarmawan

buat marvel, sebaiknya dimasukkan ke artikel saja. kirim artikel bisa ke: http://pascal-id.org/dpr/Submit_News.pas
user image
more 14 years ago

marvel

cyber hacker @[gak tau artinya
kalo nga salah @ artinya Return(kembali) ke procedure/variable/function dll. mis: F adalah var maka @F adalah kembali ke var oh ya.. buat popupmenu item Show coding nya sebaiknya diganti dengan

ShowWindow(Application.handle,SW_SHOWNORMAL);
menjawab pertanyaan sendiri... wakakakak.... dengan coding diatas.. maka jika show diclik .. window akan kembali ke ukuran awal
p|0 |baseurlodd_f714]z0-9=_ ]+\]8"> user image
more 14 years ago

marvel

ini buat yg belum tao and yg uda tao :wink:

uses
..., ShellAPI;
const
WM_ICONTRAY = WM_USER + 1; //User-defined message
type
...
var
...
NotifyIconData   : TNotifyIconData;
implementation
procedure Tform1.formcreate(sender:Tobject);
begin
 with NotifyIconData do
 begin
 hIcon := Icon.Handle;
 StrPCopy(szTip, Application.Title);
 Wnd := Handle;
 uCallbackMassage := WM_ICONTRAY;
 uID := 1;
 uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
 cbSize := sizeof(TNotifyIconData);
end;
shell_NotifyIconData(NIM_ADD,@NotifyIconData);
{ini bisa ditaruh di onMinimize ato yg lainnya yg diatas juga heheh...}
SetWindowLong(
 Application.Handle,
 GWL_EXSTYLE,
 WS_EX_TOOLWINDOW);
end;
[/code:1:10b8e9f714]
              
user image
more 14 years ago

EkoIndri

@marvel sip2, namun lebih baik masuk di artikel. usul kalau ada editor yang bertugas memuskkan artikel.
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com