DelphiXE8FMX工程实现无边框托动(FMX内部方法)
2024-08-26 11:36:33
注意:
可以实现效果,但不知道我的用法对不对(或着说是不是最优化的用法),望高手们指教。
实例代码:
unit Unit1; interface uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects; type
TForm1 = class(TForm)
Image1: TImage;
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Single);
procedure FormCreate(Sender: TObject);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.fmx}
var IsDrag: Boolean; procedure TForm1.FormShow(Sender: TObject);
begin
Self.BorderStyle := TFmxFormBorderStyle.None; //窗体样式
Image1.WrapMode := TImageWrapMode.Stretch; //图片加载方式
end; procedure TForm1.FormCreate(Sender: TObject);
begin
IsDrag := False;
end; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
begin
if ssLeft in Shift then
begin
IsDrag := True;
end;
end; procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Single);
begin
if IsDrag = True then
Self.StartWindowDrag
else
begin
//
end;
end; procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
begin
IsDrag := False;
end; end.
最新文章
- 快速搭建IE测试环境(Virtualbox+ievms)
- 【 D3.js 入门系列 --- 2.1 】 关于如何选择,插入,删除元素
- mysql查询语句包含有关键字
- 简便的自动布局,对UIStackView的个人理解!
- 【jacob word】使用jacob,合并多个word为一个word文件
- FZU 2029 买票问题 树状数组+STL
- 素数个数统计——Eratosthenes筛法 [LeetCode 204]
- UIWebView禁止点击后跳转
- Storm几篇文章
- Cocos2d-x 学习(1)—— 通过Cocos Studio创建第一个Demo
- eclipse中我要同时看两个console
- ★电车难题的n个坑爹变种
- 关于JQuery中的ajax请求或者post请求的回调方法中的操作执行或者变量修改没反映的问题
- JQuery 数组获取和删除元素
- PHP中Snoopy类的使用
- 【BZOJ4259】残缺的字符串(FFT)
- js版MD5 (Message-Digest Algorithm)加密算法
- 部署到Google App Engine时中途退出后引起的问题
- [ Continuously Update ] This is an *Index Page*.
- c# 重载运算符(ovveride operator)踩坑记,关于null比对