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

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

主站蜘蛛池模板: 免费视频一区二区三区四区 | 欧美日韩另类在线观看视频 | 日本黄色三级视频 | 男女色啪网 | 久久www免费人成_看片高清 | 日本一级不卡一二三区免费 | 成人福利在线观看免费视频 | 国产精品天堂avav在线 | 久久久久久久久久久久久久久久久久 | 69xx在线观看视频 | 国产免费a v吧在线观看不卡 | 欧美人与z0z0xxxx| 亚洲浮力影院 | 成人视视 | 9热这里只有真品 | 欧美日韩国产亚洲综合不卡 | 福利视频第一页 | 久久香蕉国产线看观看式 | 欧美成人午夜片一一在线观看 | 欧美人与物videos另类xxxxx | 99视频九九精品视频在线观看 | 欧美一区二区三区综合色视频 | 干夜夜 | 国产精品青青青高清在线观看 | 一区视频在线 | a视频在线看 | 国产极品喷水视频jk制服 | 诱惑网综合 | 99久久国语露脸精品对白 | 亚洲人与日本人jjzz | 免费看一级欧美激情毛片 | 欧美国产高清欧美 | 欧美精品自拍 | 免费在线a| 性xxxx奶大欧美高清 | 一级做a爱片特黄在线观看yy | 一区二区三区高清 | 天天摸天天爽 | 亚洲第一在线视频 | 久久精品国产亚洲精品 | 日韩视频在线观看视频 |