스크롤 상자 안에 구성 요소 추가

Question

사용자 지정 구성 요소가 있습니다. 현재 폼에 TScrollbox을 배치하고 사용자 지정 구성 요소를 스크롤 상자에 추가/끌어 놓아야합니다.
폼에 배치/드래그 할 때 자동으로 스크롤 상자 안에 배치되도록 구성 요소를 변경하는 방법은 무엇입니까?

맞춤 구성 요소는 TGraphicControl입니다.

Answer 1

사용자 지정 구성 요소가 있고 항상 스크롤 상자 안에 있으면 원하는 경우 가장 깨끗한 솔루션은 해당 구성 요소를 업데이트하거나 확장하여 자체 스크롤 상자를 갖게하는 것입니다. 다음은 TLabel을 사용하는 예이지만 맞춤 구성 요소가 무엇이든이를 바꿀 수 있습니다.

unit MyScrollBox; 

interface 

uses 
    System.SysUtils, System.Classes, Vcl.Controls, Vcl.Forms, Vcl.StdCtrls; 

type 
    TMyScrollComponent = class(TScrollBox) 
    private 
    FLabel : TLabel; 
    procedure SetLabelText(AText : string); 
    function GetLabelText : string; 
    protected 
    constructor Create(AOwner : TComponent); override; 
    published  
    property LabelText : string read GetLabelText write SetLabelText; 
    end; 

procedure Register; 

implementation 

procedure Register; 
begin 
    RegisterComponents('Samples', [TMyScrollComponent]); 
end; 

constructor TMyScrollComponent.Create(AOwner : TComponent); 
begin 
    inherited; 
    FLabel := TLabel.Create(self); 
    FLabel.Parent := self; 
    FLabel.Caption := 'Hello From Scrollbox!'; 
end; 

procedure TMyScrollComponent.SetLabelText(AText : string); 
begin 
    FLabel.Caption := AText; 
end; 

function TMyScrollComponent.GetLabelText : string; 
begin 
    result := FLabel.Caption; 
end; 

end. 

이것은 TLabel을 포함, TScrollBox에서 상속되는 사용자 지정 구성 요소를 보여줍니다 및 사용자 지정 게시 속성을 통해 TLabel의 Caption 속성을 노출합니다. 이 패턴에 따라 사용자가 필요로하는 다른 컨트롤의 속성을 노출 할 수도 있습니다.

또는 스크롤 상자 내에서 레이아웃을 변경하는 기능을 유지하려는 경우 다른 해결책으로는 맞춤 TFrame. 그냥 add one to your project과 빌드 후, 팔레트 도구 Standard -> Frames에서 사용할 수있게됩니다.