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

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

制作可移動的窗體的MovePanel控件

制作可移動的窗體的MovePanel控件

更新時間:2022-05-01 文章作者:未知 信息來源:網絡 閱讀次數:

使用Winamp是有個EasyMove的功能,也就是不在標題欄上拖動鼠標就能移動窗體,雖然EasyMove功能很好實現,可還不如做個控件一勞永逸,另外這個控件還有一個更有用的功能,呆會兒就能見到。我們先看看如何實現它吧!

---- 建立一個空的Unit,把以下代碼Copy進去,再把它添加到Delphi的控件庫里,這樣MovePanel控件就做好了。

unit MovePanel;
interface
uses
Windows, Classes, Controls,ExtCtrls;
type
TMovePanel = class(TPanel) //這個控件是繼承Tpanel類的
private
PrePoint:TPoint;
Down:Boolean;
{ Private declarations }
protected
{ Protected declarations }
public
constructor Create(AOwner:TComponent);
override;
//重載鼠標事件,搶先處理消息
procedure MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);override;
procedure MouseUp(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);override;
procedure MouseMove(Shift: TShiftState;
X, Y: Integer);override;
{ Public declarations }
published
{ Published declarations }
end;

procedure Register;

implementation

constructor TMovePanel.Create(AOwner:TComponent);
begin
inherited Create(AOwner); //繼承父類的Create方法
end;

procedure TMovePanel.MouseDown(Button:
TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if (Button=MBLeft) then
begin
Down:=true;
GetCursorPos(PrePoint);
end;
//如果方法已存在,就觸發相應事件去調用它,
若不加此語句會造成訪存異常
if assigned(OnMouseDown) then
OnMouseDown(self,Button,shift,x,y);
end;

procedure TMovePanel.MouseUp(Button:
TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if (Button=MBLeft) and Down then
Down:=False;
if assigned(OnMouseUp) then
OnMouseUp(Self,Button,shift,X,y);
end;

procedure TMovePanel.MouseMove(Shift:
TShiftState; X, Y: Integer);
Var
NowPoint:TPoint;
begin
if down then
begin
GetCursorPos(nowPoint);
//self.Parent在Form中就是MovePanel所在的窗體,
或是MovePanel所在的容器像Panel
self.Parent.Left:=self.Parent.left
+NowPoint.x-PrePoint.x;
self.parent.Top:=self.Parent.Top
+NowPoint.y-PrePoint.y;
PrePoint:=NowPoint;
end;
if Assigned(OnMouseMove) then
OnMouseMove(self,Shift,X,y);
end;

procedure Register;
begin
RegisterComponents('Md3', [TMovePanel]);
end;

end.

  接下來,看看怎么用它吧。
----用法一:拖一個Form下來,加上我們的MovePanel,Align屬性設為alClient,運行一下,移動窗體的效果還不錯吧!想取消此功能,把MovePanel的Enabled屬性設為False即可,簡單吧!

----用法二:拖一個Form下來,加上普通的Panel,調整好大小,再在Panel上加上我們的MovePanel, Align屬性設為alClient,運行一下,這一次在我們拖動MovePanel時不是窗體在移動,而是Panel和MovePanel一起在窗體上移動,如果我們再把其他的控件放在MovePanel上,就成了可以在窗體上任意移動的控件了,就這么簡單!

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 国产好痛疼轻点好爽的视频 | 蜜臀91精品国产免费观看 | 中文字幕第一页在线视频 | 亚洲欧美日韩在线不卡 | 欧美日韩亚洲一区二区精品 | 久久青草精品2020最新款 | 日本按摩店偷拍 | 五月婷婷丁香在线视频 | japanesexxxx日本中文字幕 | 日韩免费视频一区二区 | 国产午夜精品福利视频 | 日韩精品亚洲人成在线播放 | 成人久久影院 | 国产成人在线综合 | 国产黄色一级大片 | 欧美日韩国产网站 | 日本19禁啪啪无遮挡免费观看 | 午夜第九理论达达兔dy888流 | 爽爽窝窝午夜精品一区二区 | 91精品免费久久久久久久久 | 国产精品爽爽va免费观看 | 一区二区视频在线观看免费的 | 国产九九热视频 | 亚洲精品视频观看 | 精品一区二区三区免费毛片爱 | 深夜在线影院 | 亚洲欧美国产中文 | 精品国产91久久久久久久 | 青青青青手机在线视频观看国产 | 在线播放91 | 中文在线1区二区六区 | 欧美日韩国产成人高清视频 | 天天干天天干天天操 | 天天插在线视频 | 欧美性猛交xxxx乱大交蜜桃 | 久久99精品久久只有精品 | 久久www免费人成看片入口 | 国产1区2区3区在线观看 | 精品国产专区91在线尤物 | 成人欧美午夜视频毛片 | 欧洲性大片xxxxx久久久 |