各位前輩好... 小弟按照一些範例的說明之後使得當我按下最小化的時候 可以把form隱藏起來...並且再tray上產生一個icon 有兩個問題想請教一下 1.如何使得按下icon之後~~~自動顯示視窗出來... 我現在能做到的是form.show 可是無法自動顯示出來...只會在下方工具列出現... 2.當我將form show出來之後...會發現'最小化'的按鈕失去作用了... 為什麼會如此呢？ 麻煩請知道的前輩解答一下^^

Hello stonys 兄您好: 不曉得您是否有用到下面這兩段程式

procedure WMTrayIcon( var message : TMessage ); message WM_TRAYICON;
procedure SubClassWndProc(var Message: TMessage);    procedure TForm1.WMTrayIcon(var message: TMessage);
var MousePos : TPoint;
begin
   Case message.LPARAM of
       WM_RBUTTONDOWN : begin
           SetActiveWindow( Handle );
           GetCursorPos( MousePos );
           PopupMenu.Popup(MousePos.X, MousePos.Y);
       end;
       WM_LBUTTONDBLCLK : begin
           Form1.Show;
       end;
   end;
end;    procedure TForm1.SubClassWndProc(var Message: TMessage);
begin
   if (Message.Msg = WM_SYSCOMMAND) and ((Message.wParam = SC_MINIMIZE)) then begin
      Hide;
   end else
      WndProc(Message);
end;

------


我不是高手, 高手是正在銀幕前微笑的人.

ㄜ...抱歉... 其實第二個問題我昨天已經解決了... 至於第一個問題... 我還是覺得很奇怪的是~~~~無法使得秀出來的視窗變成最上層... 感謝MILES大大的回答...