ボタンのcaptionを改行するには？

解決

初心者 2005-12-08 21:21:47 No: 19116

超初心者です。
ボタンのタイトルやラベルを2行で表示したいのですが
captionで改行できませんでした。
どうしたら良いのでしょうか？

本当に超初心者なのでわかりやすい解説をお願いします。

よろしくお願い致します。

にしの 2005-12-08 21:30:16 No: 19117

「超初心者」の定義が曖昧で、「わかりやすい解説」は付きにくいかと思います。
人によっては、「超初心者＝Delphiの基本もプログラミングの方法もわからない」と考えるでしょうし。
「超初心者」というよりも、「こうしたいので、こういうプログラムを書いたけれど、こういう結果（期待しない結果の内容）になった」という形式の方がレスがつきやすいかと。

では本題。
TButtonでは無理です。
この場合は、TBitBtnを使用します。

Button1.Caption := 'abc'#13#10'def'; //改行されない
BitBtn1.Caption := 'abc'#13#10'def'; //改行される

りおりお 2005-12-08 21:32:44 No: 19118

こんな感じです

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := '一行目'#13#10'二行目';
  SetWindowLong(Button1.Handle, GWL_STYLE, GetWindowLong(Button1.Handle, GWL_STYLE) or BS_MULTILINE);
  Button1.Caption := '一行目'#13#10'二行目';
end;

初心者 2005-12-08 21:51:43 No: 19119

にしの様
BitBtnは見つけました。
オブジェクトオンスペクタのcaptionに上記'一行目'#13#10'二行目'を
書いたのですが改行は出来ませんでした。
プログラムの方からでないと改行しないのでしょうか？

りおりお様
Handoleを見つけられません。どこで設定したら良いのでしょうか？

よろしくお願い致します。

にしの 2005-12-08 22:05:02 No: 19120

オブジェクトインスペクタでは(デフォルトでは)無理です。
プロパティエディタを実装すればできますが、さほど重要ではないと思います。
FormのOnCreateイベントで設定すればよいかと。

初心者 2005-12-08 23:14:38 No: 19121

にしの様のやり方で出来ました。

ありがとうございます。

＠っしー 2005-12-08 23:30:40 No: 19122

解決済みでなんですが、、、

フォーム上で右クリックして、「エディタで表示(V)」を選択して、テキスト表示させて、目的のTBitBtnのCaptionを

'一行目'#13#10'二行目'

のようにすることもできます。