對話被自己的視窗擋住 |
尚未結案
|
white
一般會員 發表:18 回覆:7 積分:5 註冊:2003-02-17 發送簡訊給我 |
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
//Timer1=100ms
if(FindWindow(0,"POS V6"))
{
if(IsIconic(Application->Handle))Application->Restore();
BringWindowToTop(Handle);
}else if(Form1->Visible==false)Form1->Visible=true;
}
這樣寫的時候,當程式跳出ShowMessage()或詢問對話都會被自己的視窗擋住,請問如何讓訊息不要被擋住.
另一個問題,請問如何將視窗的[開始列]整個消失. 我是要達到如下目的:
當發現某程式已執行,則我的程式無論如何都要在最上層顯示,且讓Windows的開始列消失不見. 謝謝. white
------
white |
anpino
版主 發表:31 回覆:477 積分:231 註冊:2003-01-02 發送簡訊給我 |
1.
取得form後使用
Form1->BringToFront(); 2.
請參考 http://delphi.ktop.com.tw/topic.php?topic_id=29881 //取得快捷工具列的handle
HWND hTaskBar = ::FindWindow("Shell_TrayWnd", NULL);
//隱藏快捷工具列
::ShowWindow(hTaskBar, SW_HIDE);
//顯現快捷工具列
//::ShowWindow(hTaskBar, SW_SHOW); -------------------------------
數學系是內功很強(邏輯/分析) 資工系是招式很多(程式技巧) 就像令狐沖VS東方不敗:D
Programmers Guide
http://anpino.begin.8d8d.com
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |