Class TDtCalPop97 (unit DtPop97)

Inherits from

TForm

***************************************************************************** tDtCalPop97 This form unit is used by the DateEdit97 component. Author name=BOURMAD Mehdi Author E-mail=bourmad@mygale.org Author URL=www.mygale.org/~bourmad

Constructors


constructor Create(AOwner: TComponent);

************************ Create


Functions

procedure Calendar97DateClick(Sender: TObject);


procedure Calendar97KeyCancel(Sender: TObject);


procedure Calendar97KeyEnter(Sender: TObject);


procedure Calendar97KillFocus(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure ClosePopup;

SetBounds (nPoint.

procedure WMGetDlgCode(var Message: TWMGetDlgCode);


procedure WMMouseActivate(var Message: TWMActivate);

******************** WMMouseActivate ******************* *** These functions hide calendar when it loose focus ***

Properties

Events

Variables

Calendar97 : TCalendar97;


aDateParent : tWinControl;


cancel : boolean;


MemorizedDate : tDateTime;



Constructors


constructor Create(AOwner: TComponent);

************************ Create


Functions


procedure Calendar97DateClick(Sender: TObject);


procedure Calendar97KeyCancel(Sender: TObject);


procedure Calendar97KeyEnter(Sender: TObject);


procedure Calendar97KillFocus(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure ClosePopup;

SetBounds (nPoint.X, nPoint.Y, Width-ClientWidth+Calendar97.Width, Height-ClientHeight+Calendar97.Height);


procedure WMGetDlgCode(var Message: TWMGetDlgCode);


procedure WMMouseActivate(var Message: TWMActivate);

******************** WMMouseActivate ******************* *** These functions hide calendar when it loose focus ***


Properties


Events


Variables


Calendar97 : TCalendar97;


aDateParent : tWinControl;


cancel : boolean;


MemorizedDate : tDateTime;