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
constructor Create(AOwner: TComponent);
- ************************ Create
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 ***
Calendar97 : TCalendar97;
aDateParent : tWinControl;
cancel : boolean;
MemorizedDate : tDateTime;
constructor Create(AOwner: TComponent);
************************ Create
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 ***
Calendar97 : TCalendar97;
aDateParent : tWinControl;
cancel : boolean;
MemorizedDate : tDateTime;