| Class TDtCalPop97 (unit DtPop97) |
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);| Functions |
procedure Calendar97DateClick(Sender: TObject);
procedure Calendar97KeyCancel(Sender: TObject);
procedure Calendar97KeyEnter(Sender: TObject);
procedure Calendar97KillFocus(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ClosePopup;
procedure WMGetDlgCode(var Message: TWMGetDlgCode);
procedure WMMouseActivate(var Message: TWMActivate);| 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;