Tray ikon i Delphi 8 .NET

i OnCreate skriver du:

var
Registry: TRegistry;
begin

  Registry:=TRegistry.Create;
  Registry.RootKey:=HKEY_LOCAL_MACHINE;
  If Registry.OpenKey('Software\\Microsoft\\Windows\\CurrentVersion\\RunServices',True) then
  begin
     Registry.WriteString('programmets navn', (ParamStr(0)));
    Registry.Free;
  end;

  with Tray do
begin
cbSize := SizeOf(Tray);
Wnd := Handle;
uID := 0;
uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
uCallbackMessage:= WM_TRAYMessage;
hIcon := Application.Icon.Handle;
szTip := 'Right click to see your options';
end;
Shell_NotifyIcon(NIM_ADD, @Tray);

end;

og så proceduren:

procedure TForm1.TrayMessage(var message: TMessage);
var
p: TPoint;
begin
//Laver popupmenuen
case Message.LParam of
WM_RBUTTONDOWN:
begin
SetForegroundWindow(Handle);
GetCursorPos(P);
PopupMenu1.Popup(P.X, P.y);
PostMessage(Handle, WM_NULL, 0,0);
end;
end;

case Message.LParam of
WM_LBUTTONDOWN:
begin
SetForegroundWindow(Handle);
PostMessage(Handle, WM_NULL, 0,0);

i formens onclose skriver du:

Shell_NotifyIcon(NIM_DELETE, @Tray);

du skal også tilføje følgende konstant:

const WM_TRAYMessage = WM_USER + 1;

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Den siger at der er noget galt med:

with Tray do






Shafh
Shafh@stofanet.dk
Theis F. Hinz

Behandl nørder godt.
Du ender sandsynligvis
med at arbejde for en

Motto af Bill Gates

Her har du hele Uniten:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellApi, Menus;

const
  WM_TRAYICON = WM_USER + 1;

type
  TForm1 = class(TForm)
    pmTrayMenu: TPopupMenu;
    Exit1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
  private
    { Private declarations }
    procedure WMTrayIcon(var Msg: TMessage); message WM_TRAYICON;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Tray: TNotifyIconData;

implementation

{$R *.dfm}

procedure TForm1.WMTrayIcon(var Msg: TMessage);
begin
  case Msg.LParam of
    WM_RBUTTONUP:
    begin
      SetForegroundWindow(Handle);
      pmTrayMenu.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
    end;

    WM_LBUTTONDBLCLK: Visible := not Visible;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Tray do
  begin
    cbSize := SizeOf(Tray);
    Wnd := Handle;
    uID := 0;
    uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
    uCallbackMessage := WM_TRAYICON;
    hIcon := Application.Icon.Handle;
    StrCopy(szTip, PChar(Application.Title));
  end;
  Shell_NotifyIcon(NIM_ADD , @Tray);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Shell_NotifyIcon(NIM_DELETE, @Tray);
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
  Close;
end;

end.

-------------------------------------
I am AGAINST TCPA!!
[ http://www.againsttcpa.com/ ]
-------------------------------------
Mvh
DiZpel

Hvis det er samme kode som mn bruger i ældre versioner så har jeg en liggende...
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

ved jeg ikke... men smid den til mig så vil jeg da lige prøve.

Aha.. Delphi 8 .NET... Hmm da vil dette kanskje ikkje hjelpe :\-------------------------------------
I am AGAINST TCPA!!
[ http://www.againsttcpa.com/ ]
-------------------------------------
Mvh
DiZpel

Okay dette skulle virke i .NET udgaven..

uses
  ShellAPI;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  MyIcon.cbSize:=SizeOf(MyIcon);
  with MyIcon do
  begin
    Wnd:=Form1.Handle;
    uID:=0;
    uFlags:=NIF_ICON+NIF_TIP;
    hIcon:=CopyIcon(Application.Icon.Handle);
  end;
  Shell_NotifyIcon(NIM_ADD, @MyIcon);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Shell_NotifyIcon(NIM_DELETE, @MyIcon);
end;

Ved godt det kun laver ikonet men du kan jo selv lave en Right-Click menu til tray ikonet og så bare bruge form1.show og form1.hide.
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Fik ikke noget af det til at virke, men fandt på noget andet