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;

cyber hacker @

more 19 years ago

EkoIndri

@marvel sip2, namun lebih baik masuk di artikel. usul kalau ada editor yang bertugas memuskkan artikel.

more ...

• Pages:
• 1

reply | Report Obsolete