meason

{ If you make use of this unit last, the TButton component will be intercepted 
  and contain the new LastClickTime property }
unit button_interceptor;  

interface  

uses 
  stdctrls, sysutils, DateUtils;  

type   

meason

/// <summary>A summary of the target function or class</summary>
/// <para>Distinctively unleash interoperable users after exceptional innovation.
/// Efficiently promote exceptional catalysts for change without tactical e-services.</para>
/// <c>Text in fixed-width font</c>
/// <code>Preformatted text, such as source code </code>
/// <remarks>Remarks regarding the target function or class. You can also <b>bold text.</b></remarks>
/// <param name="ParameterOne">The name and description of a parameter one
/// <param name="ParameterTwo">The name and description of a parameter two
/// <see>Reference to a specific type, symbol, or identifier</see>
/// <returns>True when things are hunky dory.  False when things haven't worked out.

meason

uses
  WinAPI.Messages;

const
  WM_AFTER_SHOW = WM_USER + 300; // custom message
  WM_AFTER_CREATE = WM_USER + 301; // custom message
type
  TForm1 = class(TForm)
    // After Resize Event
    procedure WMExitSizeMove(var Message: TMessage); message WM_EXITSIZEMOVE;