大大們好：
我想做一個沒有主窗體程式（不是建成窗體再隱藏的那種），放在系統托盤區，還有托盤菜單。雖然程式沒有主窗體，但有供用戶設置的選項窗體彈出。

目前我做了主窗體隱藏顯示，但是在彈出設置窗體后，進行一些最小化與恢復操作后，主窗體都跟著顯示，總是不如人意。哪位大大做過無主窗體的托盤程式，請指點一下。

這種 TrayIcon 的程式k.top 上資源應不少，寫法其實也有很多變化，也有利用元件來實作的，建議可以搜尋逛逛是否有現成的參考。
或將你的 Code post 上來，讓大家針對你的寫法給予建議。

簡單範例  

[code delphi]
Procedure DoClickEvent(Sender:TObject);
begin
//ShowMessage('Hello');
PostQuitMessage(0);
end;

var
EVTrayIcon1: TEVTrayIcon;
DoClick :TNotifyEvent;

Msg :TMsg;
begin
EVTrayIcon1:= TEVTrayIcon.Create(Nil);
Try
EVTrayIcon1.Icon.Handle := LoadIcon(0, IDI_APPLICATION);
TMethod(DoClick).Code := @DoClickEvent;
TMethod(DoClick).Data := Nil;
EVTrayIcon1.OnClick := DoClick;
EVTrayIcon1.Active:= True;

While GetMessage(Msg,0,0,0) do
begin
TranslateMessage(msg);
DispatchMessage(msg);
end;
Finally
EVTrayIcon1.Free;
end;

[/code]