unit AAA;
...
TBBB = class(TObject)
private
FReadOnly : Boolean;
Procedure SetReadOnly(Value : boolean);
Published (또는 Public)
Property ReadOnly : Boolean read FReadOnly write SetReadOnly;
...
implementation
Procedure TBBB.SetReadOnly(Value : boolean);
begin
if Value = FReadOnly then
exit;
if not Value then
begin
색깔 바꾸기 등등..
end;
FReadOnly := Value;
end;
unit AAA;
...
TBBB = class(TObject)
private
FReadOnly : Boolean;
Procedure SetReadOnly(Value : boolean);
Published (또는 Public)
Property ReadOnly : Boolean read FReadOnly write SetReadOnly;
...
implementation
Procedure TBBB.SetReadOnly(Value : boolean);
begin
if Value = FReadOnly then
exit;
if not Value then
begin
색깔 바꾸기 등등..
end;
FReadOnly := Value;
end;