• Registered: 2015-07-27
  • Posts: 2

Topic: Интересующий вопрос.

Добрый день.

Подскажите, пожалуйста, возможно ли сделать так, чтобы при нажатии на кнопку/панель, она изменила свой цвет? Делаю базу данных для офисного здания, поэтажную планировку. Данную функцию хотелось бы внедрить для изменения статуса помещения со свободного (панель зеленого цвета) на занятое (панель красного цвета), либо наоборот с помощью одного клика по кнопке/панели.

Если есть более хорошее или качественное предложение, с радостью рассмотрю.

Благодарю за любую помощь.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Интересующий вопрос.

Приветствую,


Это можно сделать с помощью скрипта, создав событие OnClick у компонента Panel, пример:

procedure Form1_Panel1_OnClick (Sender: string);
begin
    if Form1.Panel1.Color = clRed then Form1.Panel1.Color := clGreen else Form1.Panel1.Color := clRed;
end;
Dmitry.
  • Registered: 2015-07-27
  • Posts: 2

Re: Интересующий вопрос.

DriveSoft wrote:

Приветствую,


Это можно сделать с помощью скрипта, создав событие OnClick у компонента Panel, пример:

procedure Form1_Panel1_OnClick (Sender: string);
begin
    if Form1.Panel1.Color = clRed then Form1.Panel1.Color := clGreen else Form1.Panel1.Color := clRed;
end;

Благодарю. Однако возникла проблема: открываю скрипт, переименовываю Form1 (скрипт из вашего сообщения) в FLOOR7 (форма, в которой необходима работа), после чего происходит ошибка BEGIN 5:1

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Интересующий вопрос.

Здесь можете посмотреть, как правильно создавать события:
http://myvisualdatabase.com/help_ru/scr … rview.html


также не удаляйте в конце скрипта блок

begin

end.
Dmitry.