Текст в кнопке в 2 строки

[Elena]

Как сделать, чтобы текст в кнопке(Button, SpeedButton, BitBtn) выводится в 2 строки?

[kommunist]

попробуй так:

      button1.Caption:='a'+ #13 +'a';

[Elena]

Да, так работает
А можно ввести 2 строки не программно, а в Object Inspector?

[_Dmitry]

Пример будет работать если добавить следующее:

procedure TForm1.FormCreate(Sender: TObject);
var
  Style: integer;
begin
  Style:=GetWindowLong(Button1.Handle,GWL_STYLE);
  SetWindowLong(Button1.Handle,GWL_STYLE,Style or BS_MULTILINE);
end;

[Elena]

А если это не Button1, а SpeedButton?

[_Dmitry]

Сообщение от Elena

А можно ввести 2 строки не программно, а в Object Inspector?

Напротив Caption есть многоточие, нажимайте и вводите

[Elena]

Там нет никакого многоточия!!!

[kommunist]

Сообщение от Elena

А если это не Button1, а speed button?

вместо Button1 напиши speed button
а через инспектор объектов помоему нельзя

[Elena]

вместо Button1 напиши speed button

Уже пробовала, у SpeedButton нет свойства Handle

[_Dmitry]

Эта процедура нужна только для Button. Для SpeedButton и BitBtn разбивка на строки происходит и без нее (протестировано в Delphi 7).
Так же в Delphi 7 на против Caption есть многоточие для ввода многострочного текста.