안녕하세요?
우선 델파이의 vcl 소스를 참고하시라고 말씀 드리고 싶군요...
사실 거의 모든 해답은 vcl 소스를 분석해 보면 나온답니다.
published 의
property Caption : String read FCaption write SetCaption;
부분이 바로 그 역할을 하는 부분이죠...
물론 FCaption 은 private에서 정의되어 있어야 하겠구요...
SetCaption 프로시져 역시 정의되어 있어야 하겠지요...
procedure SetCaption(Value : String); 이런 식으로요...
그리고 Implementation 부분에서
프로시져를 정해주면 되겠죠...
procedure TMyComponent.SetCaption( Value : string );
begin
if FCaption <> Value then begin
FCaption := Value;
...
end;
end;
뭐 이런식으로 프로시져를 작성해 주시면 됩니다.
물론 값의 변화에 따라 메세지를 준다면 위의 프로시져를
변형해 주면 되고요...
그리고 초기값을 주려면 컴포넌트의 Create 부분에서
FCaption := '초기값';
처럼 지정해 주시면 되겠구요...
도움이 되실런지...
|