关于鼠标时间的一个API

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    Procedure WMENTERSIZEMOVE(var msg: TMessage); message WM_ENTERSIZEMOVE;
    Procedure WMEXITSIZEMOVE(var msg: TMessage); message WM_EXITSIZEMOVE;

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

 

{ TForm1 }

procedure TForm1.WMENTERSIZEMOVE(var msg: TMessage);
begin
  Caption := '开始移动/改变窗体大小';
end;

procedure TForm1.WMEXITSIZEMOVE(var msg: TMessage);
begin
  Caption := '结束移动/改变窗体大小';
end;

end.

 

 

HTBORDER	In the border of a window that does not have a sizing border.
HTBOTTOM	In the lower-horizontal border of a resizable window (the user can click the mouse to resize the window vertically).
HTBOTTOMLEFT	In the lower-left corner of a border of a resizable window (the user can click the mouse to resize the window diagonally).
HTBOTTOMRIGHT	In the lower-right corner of a border of a resizable window (the user can click the mouse to resize the window diagonally).
HTCAPTION	In a title bar.
HTCLIENT	In a client area.
HTCLOSE	In a Close button.
HTERROR	On the screen background or on a dividing line between windows (same as HTNOWHERE, except that the DefWindowProc function produces a system beep to indicate an error).
HTGROWBOX	In a size box (same as HTSIZE).
HTHELP	In a Help button.
HTHSCROLL	In a horizontal scroll bar.
HTLEFT	In the left border of a resizable window (the user can click the mouse to resize the window horizontally).
HTMENU	In a menu.
HTMAXBUTTON	In a Maximize button.
HTMINBUTTON	In a Minimize button.
HTNOWHERE	On the screen background or on a dividing line between windows.
HTREDUCE	In a Minimize button.
HTRIGHT	In the right border of a resizable window (the user can click the mouse to resize the window horizontally).
HTSIZE	In a size box (same as HTGROWBOX).
HTSYSMENU	In a window menu or in a Close button in a child window.
HTTOP	In the upper-horizontal border of a window.
HTTOPLEFT	In the upper-left corner of a window border.
HTTOPRIGHT	In the upper-right corner of a window border.
HTTRANSPARENT	In a window currently covered by another window in the same thread (the message will be sent to underlying windows in the same thread until one of them returns a code that is not HTTRANSPARENT).
HTVSCROLL	In the vertical scroll bar.
HTZOOM	In a Maximize button.