delphi - TPageControl と Startmargin

Question

TPageControlのようなプロパティが必要StartMarginですTTabSet。StartMarginでプロパティを作成するにはどうすればよいTPageControlですか?

StartMarginに慣れていない人のために、ドキュメントの関連テキストを次に示します。

タブ セット コントロールの左端から最初のタブが表示される距離をピクセル単位で決定します。

Answer 1

私があなたを正しく理解していれば、標準のコントロールでこれを行うことができます。

オブジェクト インスペクタで TPageControl --> Margins --> Left を 50 に設定します。次に、AlignWithmargins を True に設定します。

同じことがTTabSheetにも当てはまります

それとも違うものが必要ですか？

コメントを参照して編集します。同じことが TTabSet にも当てはまります。左マージン、AlignWithMargins を設定し、パネルの上に揃えます。これにより、効果が得られます。しかし今は、自分のページの可視性とページの切り替えを管理する必要があります:(

Answer 2

または、マルチバージョン ソリューションの場合:

uses 
  ..., 
  CommCtrl; 

type 
  TPageControl = class(ComCtrls.TPageControl) 
  private 
    procedure TCMAdjustRect(var Msg: TMessage); message TCM_ADJUSTRECT; 
  end; 

  TForm1 = class(TForm) 
    ... 
  end; 

... 

procedure TPageControl.TCMAdjustRect(var Msg: TMessage); 
begin 
  inherited; 
  if Msg.WParam = 0 then
    Inc(PRect(Msg.LParam)^.Left, 50)
  else
    Dec(PRect(Msg.LParam)^.Left, 50);
end;