Delphi7有TrayIcon元件嗎?
Standard, Additional, Win32, System, Win31. 標籤中都沒看到 ?

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

Delphi 7 沒有TrayIcon元件，要用 3rd party 的，TurboPower Shellshock 就有提供。

http://www.delphi32.com/vcl/5086/

這個元件就可以把程式縮小到tray


===================引 用 文 章===================

Delphi7有TrayIcon元件嗎?
Standard, Additional, Win32, System, Win31. 標籤中都沒看到 ?

// Get Windows Message
procedure TForm1.WndProc(var Msg: TMessage);
var
p : TPoint;
begin
case Msg.Msg of
WM_USER 1:
case Msg.lParam of
WM_RBUTTONDOWN: begin // 在圖上按了左鍵
SetForegroundWindow(fmTranMember.Handle);
GetCursorPos(p);
PopupMenu1.Popup(p.x, p.y);
end;
WM_LBUTTONDOWN: begin // 在圖上按了右鍵
Open1Click(fmTranMember);
end;
end;
end;
inherited;
end;
// 設定Tray-ICON的圖
procedure TForm1.Setup_Icon;
var ico: TIcon;
begin
ico:= TIcon.Create;
Imagelist.GetIcon(2, ico);
IconData.cbSize := SizeOf(IconData);
IconData.Wnd := Handle;
IconData.uID := 100;
IconData.uFlags := NIF_MESSAGE NIF_ICON NIF_TIP;
IconData.uCallbackMessage := WM_USER 1;
IconData.hIcon := ico.handle;
StrPCopy(IconData.szTip, Application.Title);
Shell_NotifyIcon(NIM_ADD, @IconData);
ico.free;
end;
// 從Tray-ICON開啟程式
procedure TForm1.Open1Click(Sender: TObject);
begin
fmTranMember.Show;
ShowWindow(Application.Handle, SW_HIDE);
end;
// 結束程式
procedure TForm1.Quit1Click(Sender: TObject);
begin
if MessageDlg('是否確定要結束?', mtConfirmation, [mbYes, mbNo], 0) <> mrYes then exit;
Write_Setting;
Shell_NotifyIcon(NIM_DELETE, @IconData);
Application.ProcessMessages;
Application.Terminate;
end;

procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:= caNone;
Form1.Hide;
end;
procedure TForm1.btnCloseClick(Sender: TObject);
begin
Form1.Hide;
end;
procedure TForm1.btnQuitClick(Sender: TObject);
begin
Quit1Click(Sender);
end;