[advanced_delphi] WTA - TDateTimePicker inside TWinControl is invisible

[Niksen Harjanto]

Dear all...

I have created my own custom component.
It used TWinControl as it's "canvas" and a TDateTimePicker on top of it.

When I dropped onto a TForm, everything was ok.
But if I dropped it onto the TTabSheet (tab in TPageControl), the
TDateTimePicker will visible ONLY WHEN I dropped it.
If I close the application and then re-open it again, the
TDateTimePicker will invisible.
Is this a bug or I made some mistake?

this is my script

Constructor Tdtp.Create(AOwner: TComponent);
Begin
  Inherited Create(AOwner);
  OnResize := OnComponentResize;
  Height := 23;
  Width := 121;
  boolEnabled := True;

  DateTimePicker1 := TDateTimePicker.Create(Self);
  DateTimePicker1.Parent := Self;
  DateTimePicker1.Left := 0;
  DateTimePicker1.Top := 0;
  DateTimePicker1.Align := alClient;
//   DateTimePicker1.Font.Name := 'Verdana';            // Error !!!
//   DateTimePicker1.Font.Size := 9;                            // Error !!!
  Try
         DateTimePicker1.Font.Name := 'Verdana';               // I
made trick in here,
and it works
  Except
  End;
  DateTimePicker1.Visible := True;
  DateTimePicker1.TabStop := True;

  DateTimePicker1.OnEnter := onDTPEnter;
  DateTimePicker1.OnExit := onDTPExit;
  OnComponentResize(Self);

  DateTimePicker1.OnChange := EventChange;
  DateTimePicker1.OnClick := EventClick;
  DateTimePicker1.OnCloseUp := EventCloseUp;
  DateTimePicker1.OnContextPopup := EventContextPopup;
  DateTimePicker1.OnDblClick := EventDblClick;
  DateTimePicker1.OnDragDrop := EventDragDrop;
  DateTimePicker1.OnDragOver := EventDragOver;
  DateTimePicker1.OnDropDown := EventDropDown;
  DateTimePicker1.OnEndDock := EventEndDock;
  DateTimePicker1.OnEndDrag := EventEndDrag;
  DateTimePicker1.OnKeyDown := EventKeyDown;
  DateTimePicker1.OnKeyPress := EventKeyPress;
  DateTimePicker1.OnKeyUp := EventKeyUp;
  DateTimePicker1.OnStartDock := EventStartDock;
  DateTimePicker1.OnStartDrag := EventStartDrag;
  DateTimePicker1.OnUserInput := EventUserInput;
  Try
     DateTimePicker1.Font.Size := 9;                   // I made trick
in here, and it works
  Except
  End;
End;

Thank You.....

-- 
"Sabbe Satta Bhavantu Sukhitatta - Semoga Semua Makhluk Hidup Berbahagia"

Se Hai Ce Nei, Kai Siung Ti Ye - Di Empat Penjuru Lautan, Kita Semua Bersaudara

Ko Ko Cay Siang - Yang Tinggi Masih Ada Pula Yang Melebihi Oleh Karena
Itu Jangan Takabur, Jumawa, dan Terlalu Berbangga Diri

Niksen - Pulsarian Bandung 782
members of KORMOT COMMUNITY KC #008
D 5470 WQ