Title: 複数行キャプションのボタンを コンポーネント改造せずに実装

// Button1 のキャプションを複数行にする
var
  Style: DWORD;
begin
  Style := GetWindowLong(Button1.Handle, GWL_STYLE);
  Style := Style or BS_MULTILINE;
  SetWindowLong(Button1.Handle, GWL_STYLE, Style);
  Button1.Invalidate;
end;

　親フォームの OnCreate イベントハンドラに書くときは最後の行の
Invalidate; はなくてもいいです。

　ちょっとしたことでコンポーネントを作っているとコンポーネントパ
レットが煩雑になるので、この程度は OnCreate イベントハンドラで片
づけた方がいいのかもしれません。

                1998/02/06、河邦 正（GCC02240@niftyserve.or.jp）

Original document by 河邦 正         氏 ID:(GCC02240)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。