TForm의 자손의 기본 동작 표시/SetVisible (Delphi VCL)

Question

TForm의 자손의 기본 동작 표시를 변경하고 싶습니다. 예를 들어 화면에 자신을 표시하는 대신 페이지에 배치하고 싶습니다. 새 탭 시트로 제어). 어떻게 보관할 수 있습니까? SetVisible 메서드를 재정의하려고 표준 메서드 (Show 메서드 호출 또는 Visible 속성 설정)를 사용하여 표시하고 싶습니다. 하지만 SetVisible은 개인 메서드이기 때문에 재정의 할 수 없다는 것을 알았습니다. 대체 할 제안이 있습니까? 감사.

Answer 1

보호 된 TCustomForm.VisibleChanging을 재정의 할 수 있습니다.

Answer 2

패널에 양식을 포함 시키거나 묻는 것으로 묻는 것 중 두 가지 방법이 있습니다. TForm.CreateParented (handle) 함수가 있지만 우리 코드에서는이를 사용하지 않는 경향이 있습니다. 대신 다음과 같은 종류의 코드로 양식을 만듭니다.

MyForm := TMyForm.Create(Self); 
MyForm.Parent := MyTabSheet; 
MyForm.Border := bsNone; 
MyForm.Align := alClient; 
MyForm.Show;