Делфи. Цвет кнопки в форме

jax · 19.10.2011, 14:20

Здравствуйте! помогите разобратся, ставлю кнопку на форму и хочу чтобы при нажатие на неё,цвет кнопки этойже менялся

Вот моё решение

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Button1.Font.Color:=clred;
end;
end.

программа запускается,но цвет не меняется

AlexZir · 19.10.2011, 14:33

1) определение формы при обращении можно не писать, так как вы работаете с текущей, которая является родительской для объектов.
2) команда, которую вы привели в листинге, меняет цвет шрифта (FONT) на кнопке, вам нужно использовать смену фона кнопки

jax · 19.10.2011, 18:36

вы бы могли написать код,а то у меня не получается,ну или хотябы чтобы менялся цвет шрифта,а то код вроде правильный а не меняет

AlexZir · 20.10.2011, 09:58

Код:

Button1.Font.Color:=clred;

смена цвета надписи на кнопке.

AlexZir · 20.10.2011, 10:06

Для смены фона кнопки либо используйте компоненту панель, растянутую вместо кнопки, либо компоненту BitBtn, у которой есть свойство Color, либо пишите код, работающий с канвой, что бесперспективно и длинно

Вот описание способа применения TPanel вместо кнопки:

Цитата:

Установить на форму панель, выбераешь ее цвет, пишешь заголовок.
И создаешь две процедуры для панели:
1. MouseDown (нажатие кнопки мыши) в этой процедуре пишешь Panel1.BevelInner:=bvLowered;
2. MouseUp (отпускание кнопки мыши) и в нем пишешь Panel1.BevelInner:=bvRaised;

Я бы использовал BitBtn на вашем месте, кнопка она и есть кнопка, только свойств доступно побольше

jax · 20.10.2011, 20:05

я её и использую,но в колледже сказали попробывать сделать с Button

AlexZir · 21.10.2011, 14:48

У TButton просто не предусмотрен режим изменения цвета background-а при помощи свойства Color, а работать с Canvas вам, похоже, еще не учили. Так что остается только вариант с BitBtn, просто отключите на ней картинку и внешне она будет выглядеть как обычная Button

19.10.2011, 14:20	#1 (permalink)
jax Технарёнок Регистрация: 30.12.2010 Сообщений: 77 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Делфи. Цвет кнопки в форме Здравствуйте! помогите разобратся, ставлю кнопку на форму и хочу чтобы при нажатие на неё,цвет кнопки этойже менялся Вот моё решение Код: procedure TForm1.Button1Click(Sender: TObject); begin form1.Button1.Font.Color:=clred; end; end. программа запускается,но цвет не меняется

20.10.2011, 09:58	#4 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Код: Button1.Font.Color:=clred; смена цвета надписи на кнопке.

19.10.2011, 14:20
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Данные темы вам очень помогут Иконка на форме входа Цвет имени папки В игре поменялся цвет Какой цвет резистора? При заправке перепутал цвет чернил Где красный цвет на canon ip 1900?

19.10.2011, 14:33	#2 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	1) определение формы при обращении можно не писать, так как вы работаете с текущей, которая является родительской для объектов. 2) команда, которую вы привели в листинге, меняет цвет шрифта (FONT) на кнопке, вам нужно использовать смену фона кнопки

19.10.2011, 18:36	#3 (permalink)
jax Технарёнок Регистрация: 30.12.2010 Сообщений: 77 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	вы бы могли написать код,а то у меня не получается,ну или хотябы чтобы менялся цвет шрифта,а то код вроде правильный а не меняет

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

20.10.2011, 20:05	#6 (permalink)
jax Технарёнок Регистрация: 30.12.2010 Сообщений: 77 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	я её и использую,но в колледже сказали попробывать сделать с Button

21.10.2011, 14:48	#7 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	У TButton просто не предусмотрен режим изменения цвета background-а при помощи свойства Color, а работать с Canvas вам, похоже, еще не учили. Так что остается только вариант с BitBtn, просто отключите на ней картинку и внешне она будет выглядеть как обычная Button