Блог

Я просто хочу изменить цвет кнопки после ее нажатия.

Должен ли я использовать «стили» для этого или ….?

Вы можете изменить кнопку.Свойство StyleLookup для изменения стиля (цвета).

Вам нужно добавить новый стиль в Книгу стилей.

1. Выберите «Редактировать пользовательский стиль …» в меню правой кнопки мыши из кнопки.
2. Измените заливку.Свойство Color из элементов TRectangle под фоном:TRectangle
3. Примените и закройте Stylebook
4. Очистить кнопку.stylelookup
5. Измените button.stylelookup в вашем buttonclick на новый стиль create, когда вы не меняли название его Button1Style1

Использование стилей

Альтернативой созданию другого стиля и переключению на этот новый стиль было бы создание пользовательского стиля для кнопки и изменение цвета в этом стиле во время выполнения.

1. Щелкните правой кнопкой мыши на кнопке и выберите «Редактировать пользовательский стиль …» в главном меню.
2. Нажмите Применить и закрыть в редакторе стилей.

Вы только что создали пользовательский стиль для кнопки. Поэтому, когда вы редактируете ее во время выполнения, это повлияет только на эту кнопку.

Теперь введите следующее в событие OnClick, чтобы изменить цвет во время выполнения:

   var
    r: TRectangle;
  begin
    // Find the background TRectangle style element for the button
    r := (Button1.FindStyleResource('background') as TRectangle);
    if Assigned(r) then
    begin
      r.Fill.Color := claBlue;
    end;
  end;
  

Примечание: Добавьте FMX.Objects в ваше предложение uses, если у вас его еще нет. Вот где находится TRectangle.

Но подождите…

Вы заметите, что цвет кнопки возвращается к значению по умолчанию, когда мышь покидает кнопку или входит в нее. Это из-за анимации. Если вы установите свойства stylename для обоих элементов стиля TColorAnimation в редакторе стилей для пользовательского стиля, вы также можете установить цвет для них. Для моего примера я назвал TColorAnimations coloranimation1 и coloranimation2.

Вот пересмотренный код:

 var
  r: TRectangle;
  ca: TColorAnimation;
begin
  // Find the background TRectangle style element for the button
  r := (Button1.FindStyleResource('background') as TRectangle);
  if Assigned(r) then
  begin
    r.Fill.Color := claBlue;
  end;
  ca := (Button1.FindStyleResource('coloranimation1') as TColorAnimation);
  if Assigned(ca) then
  begin
    ca.StartValue := claBlue;
  end;
  ca := (Button1.FindStyleResource('coloranimation2') as TColorAnimation);
  if Assigned(ca) then
  begin
    ca.StopValue := claBlue;
  end;
  

Примечание: Добавьте FMX.Ответьте на ваше предложение uses для TColorAnimation.