引言: 請問各位先進： 我想讓一個視窗永遠是顯示在最上層(TOP),而且不會失去焦點(就是永遠都是active window) 目前我用了SetWindowPos函數可以讓視窗在最上層顯示，但是當我按到其他視窗時，焦點會轉到他視窗上面，而不是在最TOP的那個視窗， 請問該如何做才能讓焦點不會離開呢??? 謝謝先了~~~^-^

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Form2->ShowModal();
}

引言: 請問各位先進： 我想讓一個視窗永遠是顯示在最上層(TOP),而且不會失去焦點(就是永遠都是active window) 目前我用了SetWindowPos函數可以讓視窗在最上層顯示，但是當我按到其他視窗時，焦點會轉到他視窗上面，而不是在最TOP的那個視窗， 請問該如何做才能讓焦點不會離開呢??? 謝謝先了~~~^-^

liaoken 你好: 請參考以下的連結文章 src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --

引言: 先感謝兩位大大的回應~ 我試過了用Timer的方法,確實可以讓我的視窗定時被Active 但是還是可以去點選其他的視窗~ 我是想讓程式一執行後，出現的那個Form永遠是Active~ 而且你無法點選其他視窗 有辦法不用Timer也可以做到嗎???

liaoken你好： 我覺得不用>>物件及其 class="code"> void __fastcall TForm1::ApplicationEvents1Deactivate(TObject *Sender) { Sleep(100); SetForegroundWindow(Application->Handle); <---這行在Win 2k中很有問題，見下面說明 SetActiveWindow(Application->Handle); } 上面那行SetForegroundWindow有一個問題，如Win API說明： 也就是說如果一隻Ap自已用這個API function讓自已在最上層，則會在tool bar持續閃爍，且沒辦法getfocus，如下圖： 於是我用Sleep(100);這行解決掉了，在Win XP試run成功，但後來在Win 2k中卻怎麼也不能成功，這點值得注意! ========================================================================================== After all，以上都是昨天的想法!今天覺得不太好，因為都是把 >! 這樣的做法第一個會感覺 >----&>今天試了一下做這樣的一個>遺憾的是目前我還不會做< >，所以也順便問了一個問題< >! >!