Changing the Default Value of FReadOnly

Because this is a data editing control, the ReadOnly property should be set to False by default. To make the ReadOnly property False, change the value of FReadOnly in the constructor:

Copy Code

constructor TDBCalendar.Create(AOwner: TComponent);
begin
  .
  .
  .
  FReadOnly := False;  { set the default value }
  .
  .
  .
end;

Copy Code

__fastcall TDBCalendar::TDBCalendar (TComponent* Owner) : TSampleCalendar(Owner)
{
  FReadOnly = false;             // set the default value
  .
  .
  .
}

What do you think about this topic? Send feedback!