zoukankan      html  css  js  c++  java
  • 窗口移动事件

    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs;
    
    type
      TForm1 = class(TForm)
      private
        { Private declarations }
        procedure WMEnterSizeMove(var Message: TMessage) ; message WM_ENTERSIZEMOVE;
        procedure WMMove(var Message: TMessage) ; message WM_MOVE;
        procedure WMExitSizeMove(var Message: TMessage) ; message WM_EXITSIZEMOVE;
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.WMEnterSizeMove(var Message: TMessage) ;
    begin
      Caption:= '正在移动';
    end;
    
    procedure TForm1.WMMove(var Message: TMessage) ;
    begin
      Caption:= Format('移动到 x: %d, y:%d', [TWMMove(Message).XPos,TWMMove(Message).YPos]) ;
    end;
    
    procedure TForm1.WMExitSizeMove(var Message: TMessage) ;
    begin
      Caption:= Caption + '  移动结束'
    end;
    
    end.
  • 相关阅读:
    第二天课程档案
    第一天课程档案
    SAM初步
    计算几何初步
    数论二次总结
    生成函数入门题汇总
    1500: [NOI2005]维修数列
    20170214
    【bzoj2286】[Sdoi2011]消耗战
    bzoj2223: [Coci 2009]PATULJCI
  • 原文地址:https://www.cnblogs.com/jieke/p/3423116.html
Copyright © 2011-2022 走看看