Q&A

  • form의 caption 값이 바뀔때 이벤트를 발생시킬수 있나요
form의 caption 값이 바뀔때마다 특정 이벤트를
일으킬수 있나요.
아시는분 조언부탁합니다


2  COMMENTS
  • Profile
    최용일 2003.04.17 00:08
    안녕하세요. 최용일입니다.

    속성으로 처리해보세요...

        TForm1 = class(TForm)
        private
            function GetCaption: TCaption;
            procedure SetCaption(const Value: TCaption);
        public
            property Caption: TCaption read GetCaption write SetCaption;
        end;

    implementation

    function TForm1.GetCaption: TCaption;
    begin
      Result := inherited Caption;
    end;

    procedure TForm1.SetCaption(const Value: TCaption);
    begin
      inherited Caption := Value;
      // 여기에서 원하시는 작업을 하시면 됩니다...
    end;

    ^^ 항상 즐코하세요...

  • Profile
    0sin 2003.04.16 23:05
    // 어느 부분이던 검사해서 빠뀌었는지 검사후 실행
    if Form1.Caption <> strName then
       // 하고자 하는 함수....

    // Active될대 검사하면 되겠지용...