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

[jax]

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

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

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

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

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

 

[AlexZir]

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

 

[jax]

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

 

[AlexZir]

Button1.Font.Color:=clred;

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

 

[AlexZir]

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

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

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

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

 

[jax]

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

 

[AlexZir]

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