2019-02-05

【Delphi】多橫列文字的 TButton


Form 設計時期：

放一個 TLabel 在 Form 上
→ 滑鼠移至 Form 內
→ 點滑鼠右鍵
→ 選 View as Text
→ 畫面切換到文字模式，找到 TLabel 所在位置，將原 Caption 的文字加上 #13 再加第二列的文字，#13 就是讓 TLabel 的 Caption 多列，如：

原來為

Caption = 'Label1'

加上

Caption = 'Label1' + #13 + '第二列'


→ 點滑鼠右鍵
→ 選 View as Form


再到程式碼內 
 
type
    // 建立一個繼承自 StdCtrls.TButton 的自定 TButton 類別
    TButton = class(StdCtrls.TButton)
    protected
        procedure CreateParams(var Params: TCreateParams); override;
    end;

    ...
    ...

implementation

    ...
    ...

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




相關筆記 ----
【Delphi】多橫列的 TLabel

Labels: