對話被自己的視窗擋住 |
|
尚未結案
|
|
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
|
發表時間：2004-03-14 09:58:30
IP:218.164.xxx.xxx 未訂閱
系統時間：2024-05-18 21:00:08
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |