[Delphi] ボタンのキャプションを2行にする

• 2001年9月 1日(土) 21:55 JST
• 投稿者:くろねこ

ボタンのキャプションを2行表示したいと思ったことはありませんか？
実はボタンのキャプションを2行にするのはすごく簡単です。しかし、コンポーネントにしないで実現することは難しいのでコンポーネントを作成してみます。
作り方は、TButtonを継承したボタンを作成します。このボタンのCreateParamをオーバーライドします。
ここでウィンドウ作成パラメータ（Style）にBS_MULTILINEという値を付けl加えることで、2行表示ができるようになります。

注 コンポーネントの作成は[コンポーネント]メニューの新規作成から行えます。

TMultiLineCaptionButton = class(TButton)
  private
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  public
  published
    (省略...)
end;

   (省略...)

procedure TMultiLineCaptionButton.CreateParams(var Params: TCreateParams); 
begin
  inherited;
  Style := Style or BS_MULTILINE;
end;

procedure TForm1.Create(Sender: TObject);
begin
  Caption := '1行目' + #13#10 + '2行目';
end;

コメント (0件)

くろねこ研究所

https://www.blackcat.xyz/article.php/ProgramingFAQ_del0004