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

當(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)下載排行

主站蜘蛛池模板: 四虎精品成人a在线观看 | 国产女人在线 | 久久综合久久网 | 大尺度做爰床戏呻吟长小说 | 一区二区三区在线免费观看视频 | 韩国网站爱久久 | 成人sq视频在线观看网站 | 91久久在线| 亚洲精品二三区伊人久久 | 天天干天天操天天碰 | 久热在线播放中文字幕 | 亚洲综合欧美 | 性欧美bbbbbb动漫 | 国产三级网站在线观看播放 | 狠狠色综合久久婷婷 | 中文字幕免费在线看线人动作大片 | 亚洲 欧美 中文 日韩专区 | 91天堂网 | 欧美成在线观看 | 成人欧美日韩视频一区 | 免费国产一级特黄久久 | 91精品国产91久久久久久麻豆 | 欧美精品久久久久久久影视 | 国产精品福利在线观看入口 | 2018天天操天天干 | 四虎影音先锋 | 亚洲另类欧美日韩 | 亚洲激情小视频 | 啪啪免费网站视频观看 | 国产成人 免费观看 | 天天操天天摸天天干 | 欧美成人在线观看 | 操碰视频在线观看 | 国产91色在线 | 久在操| 日本一区二区在线免费观看 | 国产产一区二区三区久久毛片国语 | 99热久久久久久久免费观看 | 男人边吃奶边做视频免费网站 | 亚洲欧美日韩国产精品一区 | 白石真琴heyzo手机在线 |