不用标题栏拖动窗口最简单的方法
2005-09-08 08:34
423 查看
CSDN上看到的方法,自己整理了一下。
按任意位置都能拖动:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=mbLeft then
begin
ReleaseCapture;
Form1.perform(WM_SysCommand, $F012, 0);
end;
end;
按固定位置拖动:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=mbLeft then
begin
ReleaseCapture;
Form1.perform(WM_SysCommand, $F012, 0);
end;
end;
按任意位置都能拖动:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=mbLeft then
begin
ReleaseCapture;
Form1.perform(WM_SysCommand, $F012, 0);
end;
end;
按固定位置拖动:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=mbLeft then
begin
ReleaseCapture;
Form1.perform(WM_SysCommand, $F012, 0);
end;
end;
相关文章推荐
- 普通窗口非标题栏拖动方法
- WTL中最简单的实现窗口拖动的方法!!!
- WTL中最简单的实现窗口拖动的方法(转)
- Delphi中拖动无边框窗口的几种简单方法
- 实现拖动无标题窗口的5种方法
- Delphi中拖动无边框窗口的5种方法
- delphi实现拖动无标题窗口的5种方法
- 一个最简单的Delphi2010的PNG异形窗口方法
- eclipse转换工作空间的时候需要配置maven等各种配置 现在有一种简单的方法可以不用复杂配置 只配置一次就行
- VC++无标题窗口以及控件拖动的方法(修正)
- POJ 1002(不用排序的方法)(简单的字符串处理程序)
- Duilib改进窗口拖动,使整个窗口都能拖动两种方法(转载)
- VC++无标题窗口以及控件拖动的方法
- delphi中直接拖动窗体,不用点标题栏
- 不用彈出列印資料窗口的列印方法
- Qt5 去掉窗口标题栏,去掉任务栏显示,窗口置顶的方法
- .NET20 一种简单的窗口控件UI状态控制方法
- Delphi中拖动无边框窗口的5种方法
- 如何禁止双击标题栏不改变窗口的大小和拖动标题栏窗口不移动的问题
- 去掉字符串中的\r\n---不用cstring的方法---简单实用