全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1668
推到 Plurk!
推到 Facebook!

如何知道使用者按上右上方的縮小,放大,或關閉

答題得分者是:Justmade
skurama
中階會員


發表:88
回覆:127
積分:73
註冊:2002-07-22

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-05-13 18:41:57 IP:61.219.xxx.xxx 未訂閱
請問: 目前我有一個MainForm和幾個Form, MainForm用showmodal來開啟其他的Form。 但是開啟的表單縮到最小時會縮到左下方,而不會是下方的工具列。 在參考了http://delphi.ktop.com.tw/topic.php?TOPIC_ID=24532此篇後, 雖知道Application.Minimize;可以都縮到下方工具列, 但是無法捉到當使用者按下的是右上方的縮小鍵時的事件是什麼。 請問該如何做, 才能讓使者用按右上方的縮小按鈕時,讓程式可以縮小到最下方的工具列? 以及如何知道他是否有按下離開或放到最大? ---------------- 快滿一年程設師, 日日工作寫程式, 每買樂透眼框溼, 望能早成系分師。 ----------------
------
----------------
初出芧房程設師,
左鍵右鼠寫程式,
日扣夜寫眼框溼,
望能早成系分師。
----------------
Justmade
版主


發表:94
回覆:1934
積分:2030
註冊:2003-03-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-05-13 19:13:17 IP:218.16.xxx.xxx 未訂閱
那幾個按紐是 windows 直接管理的所以你不會直接知道它們何時被按,但你可以通過處理 Windows 給你的 Message 去處理不同的事件,例如你收到 叫你的 Form Minimize 的事件,可能是使用者按了 Minimize 紐,也可能按了 icon 後選 minimize, 也可能右擊 Taskbar 的button 選 minimize 等但總之就是叫你 minimize 啦。    要處理 minimize 事件你可代替 TCustomForm 的欄截 WM_SYSCOMMAND
private
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
 
procedure TForm2.WMSysCommand(var Message: TWMSysCommand);
begin
  if (Message.CmdType and $FFF0 = SC_MINIMIZE) then
    Application.Minimize
  else
    inherited;
end;
這個程序欄截了 WM_SYSCOMMAND 後只處厘 Minimize 時件,其他的就 inherited 叫原先 TCustomForm 的處理程序自己去處理。
skurama
中階會員


發表:88
回覆:127
積分:73
註冊:2002-07-22

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-05-13 20:16:44 IP:61.13.xxx.xxx 未訂閱
原來如此, windows的訊息還可以用在Form上, 謝謝啦~~ 看來要好好學學如何使用MESSAGE了, 再次感謝,這幾天都麻煩您~~~ ---------------- 快滿一年程設師, 日日工作寫程式, 每買樂透眼框溼, 望能早成系分師。 ---------------- 發表人 - skurama 於 2003/05/13 20:18:50
------
----------------
初出芧房程設師,
左鍵右鼠寫程式,
日扣夜寫眼框溼,
望能早成系分師。
----------------
Justmade
版主


發表:94
回覆:1934
積分:2030
註冊:2003-03-12

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-05-13 20:36:07 IP:218.16.xxx.xxx 未訂閱
忘了說放到最大和關閉 其實是一樣啦只是對比參數不同。 SC_MINIMIZE : 最小化 SC_MAXIMIZE : 最大化 SC_CLOSE : 關閉 (用 onCloseQuery / onClose 亦可) SC_RESTORE : 還原一般大小
cc12345
一般會員


發表:32
回覆:35
積分:13
註冊:2005-01-24

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-02-17 11:24:53 IP:61.219.xxx.xxx 未訂閱
請問這兩段敘述, 在BCB裡如何實作? 謝謝 ! 要處理 minimize 事件你可代替 TCustomForm 的欄截 WM_SYSCOMMAND 這個程序欄截了 WM_SYSCOMMAND 後只處厘 Minimize 時件,其他的就 inherited 叫原先 TCustomForm 的處理程序自己去處理。
系統時間:2024-06-16 15:56:00
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!