Delphi уроки: Делаем многострочный Caption на Примере Button
Не раз сталкивался с такой проблемой когда необходимо что бы caption у button был многострочным т.е если подпись не влезает в размеры кнопки она располагалась не в одну строку а в несколько.
Так Было >>> 
Так стало >>> 
Как это сделать мы и разберем в данном уроке.
Ну что погнали, открываем delphi создаем новый проект, сейчас нужно сразу оговориться что делать многострочными мы будем все кнопки, которые находиться на панели. И сразу же кидаем на форму компонент Panel с закладки Standart, на неё ставим 2 компонента button так же с закладки Standart. Далее выберите Первую кнопку и в свойстве Caption напишите побольше текста, тоже самое проделываем и со второй кнопкой.
А вот теперь и начинается самое интересное.
Переходим в код и после ключевого слова private пишем
procedure SetMultiLineButton(AParent: TWinControl) ;
Нажимаем комбинацию клавиш CTRL+ SHIFT + C если кто не понял, мы только что создали процедуру, но сейчас она пустая, поэтому Посмотрите что получилось у меня и добавьте к себе не достающие строки.
procedure TForm1.SetMultiLineButton(AParent: TWinControl);
var j : integer;
ah : THandle;
begin
for j := 0 to AParent.ControlCount - 1 do
if (AParent.Controls[j] is TButton) then
begin
ah := (AParent.Controls[j] as TButton).Handle;
SetWindowLong(ah, GWL_STYLE,
GetWindowLong(ah, GWL_STYLE) OR
BS_MULTILINE) ;
end;
end;
Вот практически и все осталось создать обработчик событий OnCreate на форме и в нем прописать
SetMultiLineButton (Panel1);
Вот теперь все, запускаем проект, вуаляяяя.... текст на кнопках располагается в несколько строк.
Кстати не давно заюзал новый Nokia Asha 303 который оснащен 1 ГГц процом и QWERTY клавиатурой, впечатления не совсем однозначные, с одной стороны все сделано довольно интересно и эргономично, но требует определенной привычки с расположению элементов управления.
P.S. Не забываем подписываться на бесплатную мультимедийную рассылку.
Форма для подписки расположена с права и с лева.
До встречи DelphiExpert.ru !!!
Похожие материалы
- Delphi компоненты - кнопка как в Qip Infium
- Создание красивых кнопок для ваших Delphi программ
- BS_AUTOCHECKВОХ Флаг стиля кнопки (Button)
- BS_RADIOBUTTON Флаги стиля кнопки (Button)
- BS_USERBUTTON Флаги стиля кнопки (Button)
Последние из рубрики
- Delphi уроки - Загружаем в BitBtn картинку формата jpg
- Создаем Анимированный ProgressBar
- Delphi Видеоурок - учимся делить изображение на кусочки