繁體中文当前位置: 首页 > 图文教程 > 开发语言 > Delphi > 不可移动的窗口示例代码
- Delphi
- Delphi开发经验四则
- Delphi应用程序的应用（一）
- Delphi应用程序的应用（二）
- 异常处理与程序调试（一）
- 异常处理与程序调试（二）
- 异常处理与程序调试（三）
- Delphi开发数据库应用程序概述（一）
- Delphi开发数据库应用程序概述（二）
- 简单数据库应用的创建及MASTAPP介绍（一）
- 简单数据库应用的创建及MASTAPP介绍（二）
- 简单数据库应用的创建及MASTAPP介绍（三）
- 数据访问部件的应用及编程（一）
- 数据访问部件的应用及编程（二）
- 数据访问部件的应用及编程（三）
- 数据浏览部件的应用及编程（一）
- 数据浏览部件的应用及编程（二）
- SQL编程（一）
- SQL编程（二）
- Delphi客户服务器应用开发（一）
- Delphi客户服务器应用开发（二）
Delphi 中的 不可移动的窗口示例代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-30 浏览: 80 ::
收藏到网摘: n/a
unit Unit1;
interface
uses
Windows Messages SysUtils Classes Graphics Controls Forms
Dialogs
StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
OldLeft OldTop OldWidth OldHeight: Integer;
public
{ Public declarations }
protected
procedure WMMOVING(var msg: TMessage);message WM_MOVING;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMMOVING(var msg: TMessage);
var
rect: ^TRect;
begin
label1.Caption := IntToStr(msg.WParam);
rect := Pointer(msg.LParam);
Label2.Caption := IntToStr(rect.Left);
Label3.Caption := IntToStr(rect.Top);
Label4.Caption := IntToStr(rect.Right);
Label5.Caption := IntToStr(rect.Bottom);
rect.Left := OldLeft;
rect.Top := OldTop;
rect.Right := rect.Left + OldWidth;
&
评论 (0) All
