不可移动的窗口示例代码

梦里寻她baby

梦里寻她baby

2016-01-29 14:10

不可移动的窗口示例代码,不可移动的窗口示例代码
 
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;
           &

展开更多 50%)
分享

猜你喜欢

不可移动的窗口示例代码

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

HTML5实现一个能够移动的小坦克示例代码

Web开发
HTML5实现一个能够移动的小坦克示例代码

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

java与js代码互调示例代码

编程语言 网络编程
java与js代码互调示例代码

jquery 子窗口操作父窗口的代码

Web开发
jquery 子窗口操作父窗口的代码

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

JS层移支示例代码

Web开发
JS层移支示例代码

移动无标题栏窗口

编程语言 网络编程
移动无标题栏窗口

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

《勇气默示录2》武器和防具的适正值表一览攻略

《勇气默示录2》武器和防具的适正值表一览攻略

Delphi学习:在流中查找任意字串

Delphi学习:在流中查找任意字串
下拉加载更多内容 ↓