What is wrong with this component??

[Ian Branch 130]

MyCustomCalendar.pas

Hi Team,

Delphi 12.2 p2.  32 bit App.

It builds and installs OK but when I go to add it to a form Delphi thinks about it for a while, way too long, and then falls over. 😞

It is a derivation of TMonthCalendar.

Appreciate any insights.

 

Regards & TIA,

[Lajos Juhász 300]

Reading the code I believe it is the:

procedure TMyCustomCalendar.CreateWnd;
begin
  inherited CreateWnd;
  RecreateWnd; // Force the control to redraw and send MCN_GETDAYSTATE
end;
 

Why do you want to create windows handle all the time? (just after it was created?)

[Ian Branch 130]

Tks Lajos,

You, that fixed it Tks.  I didn't think about the race condition it would set up.

 

Ian