日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當(dāng)前位置:雨林木風(fēng)下載站 > 技術(shù)開發(fā)教程 > 詳細(xì)頁面

用Delphi完成無邊界窗體的移動

用Delphi完成無邊界窗體的移動

更新時間:2022-04-29 文章作者:未知 信息來源:網(wǎng)絡(luò) 閱讀次數(shù):

在用Delphi制作Windows程序的窗體時,窗體的邊界有四種選擇:對話框式(bsDialog),
單邊固定式(bsSingle),雙邊可變式(bsSizeable),無邊界式(bsNone)。當(dāng)設(shè)置為
bsNone時,窗體也就沒有標(biāo)題條,很顯然,程序運行以后就無法移動窗體了。事實上,無邊界
窗體是很有用的,例如,象Word里面的浮動式工具箱其實就是無邊界窗體,它可以大大節(jié)約屏
幕空間。那么,如何用Delphi實現(xiàn)這個功能呢?顯然,這需要修改Windows的內(nèi)部消息,也就
是說,需要把“MouseDownonForm”這個消息改為“MouseDownonCaption”,這其中有三個關(guān)鍵:
捕捉MouseDown消息、判斷光標(biāo)位置、發(fā)送MouseDown消息。如果光標(biāo)在窗體中,則發(fā)送
MouseDownonCaption消息。

  在Delphi的對象巡檢器中列出的所有事件是不能捕捉到Windows消息的,因為這些都是已
經(jīng)發(fā)出的消息,無法修改了。捕捉Windows消息有兩種辦法:一個就是增加一個消息處理句
柄,直接處理Windows消息;另一個是對消息進(jìn)行過濾,濾出所需消息。第二個辦法比較常用,
適用于各種情況,下面就是移動無邊界窗體程序片斷,加注釋部分是手動加入的:

  unitUnit1;

  :

  type

  TForm1Κclass(TForm)

  procedureFormCreate(Sender:TObject);

  :

  public

  {申明消息過濾過程}

  procedureAppMessage(varMsg:TMsg;varHandled
:Boolean);

  :

  implementation

  procedureTForm1.FormCreate(Sender:TObject)


  begin

  {捕捉消息:將程序的收到消息事件與消息過濾過程
關(guān)聯(lián)起來}

  Application.OnMessage:ΚAppMessage;

  end;

  procedureTForm1.AppMessage(varMsg:TMsg;var
Handled:Boolean);

  begin

  {如果鼠標(biāo)左鍵按下的話}

  ifMsg.messageΚWM—LButtonDownthen

  begin

  {判斷光標(biāo)是否在用戶工作區(qū)內(nèi)}

  ifDefWindowProc(Handle,WM—NCHitTest,0,Get
MessagePos)ΚHTClientthen

  begin

  {發(fā)出鼠標(biāo)在用戶標(biāo)題欄內(nèi)被按下的消息}

  SendMessage(Handle,WM—NCLButtonDown,

  HTCaption,GetMessagePos);

  Handled:Κtrue;{消息處理完畢,窗體不再接受M
ouseDown及Click事件,如果為false,程序的運行稍微有
些不正常。}

  end;

  end;

  end;

  end.

  程序在Delphi1.0、中文Windows3.2下運行通過。

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統(tǒng)下載排行

主站蜘蛛池模板: 日韩一区二区三区在线视频 | 一本色道久久99一综合 | 久操视频免费在线观看 | 中文字幕在线观看2023 | 婷婷综合国产激情在线 | 亚洲人成网站色在线观看 | 在线视频综合视频免费观看 | 久99视频 | 亚洲无吗视频 | 久久欧美久久欧美精品 | 水蜜桃在线观看视频 | 91九色在线视频 | 在线成人免费观看国产精品 | 久久婷婷网 | 六月激情丁香 | 91在线精品中文字幕 | 丰满美女福利视频在线播放 | 四虎永久在线精品2022 | 在线观看日本中文字幕 | 闺蜜嗯啊啪啪厨房 | 久久久久久久久女黄 | 操草| 国产精品天天操 | 久久免费精品国产72精品剧情 | 欧美日韩免费在线视频 | 视频一区二区在线 | 一本久道热中字伊人 | 丁香六月婷婷在线观看视频 | 91视频-88av| 国产高清看片日韩欧美久久 | 亚洲一级理论片 | 久久不射视频 | 中文在线观看永久免费 | 97久久曰曰久久久 | 日韩精品视频网 | 在线观看日韩一区 | 精品香蕉99久久久久网站 | 欧美一级级a在线观看 | 天天澡天天碰天天狠伊人五月 | 欧美日韩亚洲精品国产色 | 久久久精品免费 |