不可移动的窗口示例代码- Delphi - 软晨网（RuanChen.com）

当前位置: 首页 > 图文教程 > 开发语言 > Delphi > 不可移动的窗口示例代码

技术文章搜索

关键字

Delphi 中的不可移动的窗口示例代码

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-30 浏览: 76 ::

收藏到网摘: n/a

制作类似WinAmp一样的“磁性”窗口自制替换指定串函数

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;
           &

制作类似WinAmp一样的“磁性”窗口自制替换指定串函数

Delphi 中的 不可移动的窗口示例代码

评论 (0) All

Delphi 中的不可移动的窗口示例代码