• Registered: 2015-04-04
  • Posts: 262

Topic: Button и все что с ним связано

Ув. Дмитрий. На форме имеется кнопка Button3. Надо чтобы при нажатии на него либо цвет его надписи изменился либо цвет самой кнопки. Вот это мой скрипт но не работает.

procedure Form1_Button3_OnClick (Sender: string; var Cancel: boolean);
begin
Form1.Button3.Font.Color:= clBlue;
end;

  • Registered: 2014-05-21
  • Posts: 108

Re: Button и все что с ним связано

Да. У меня такая же фигня. Только ещё и у компонента Group Box. Цвет шрифта не меняется.
Последняя версия программы.

  • Registered: 2015-04-04
  • Posts: 262

Re: Button и все что с ним связано

я тут прочитал в инете, что цвет кнопок изменить невозможно, вместо него можно воспользоваться компонентом Panel, было бы хорошо если изменить цвет самой кнопки, так как на него можно еще и ставить Action, а у панели такого свойства нет, плюс к этому у кнопки гладкие края а у панели острые что не хорошо выглядит.

  • Registered: 2015-04-04
  • Posts: 262

Re: Button и все что с ним связано

ув. Дмитрий как нам быть?

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

Re: Button и все что с ним связано

Вы не можете изменить цвет кнопки, т.к. в последних версиях Windows эта возможность была заблокирована на уровне ОС.


Но можно например изменить стиль кнопки, надпись сделать жирной:

procedure Form1_Button7_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.Button7.Font.Style := fsBold;
end;
Dmitry.
  • Registered: 2014-11-01
  • Posts: 121

Re: Button и все что с ним связано

Подскажите пожалуйста, в базе имеются файлы. Каким образом можно их открыть с помощью кнопки, не используя компонент Файл в БД. В гриде выбираю запись и допустим нажав на кнопку открывается соответствующий файл?

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

Re: Button и все что с ним связано

delphinsl
Если файлы хранятся непосредственно в БД (что не рекомендуется), тогда так

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    sFileName: string;
begin
    sFileName := SaveFileFromDataBase ('tablename','fieldname', Form1.TableGrid1.dbItemID);
    OpenFile(sFileName);
end;
Dmitry.
  • Registered: 2014-11-01
  • Posts: 121

Re: Button и все что с ним связано

нет Дмитрий файлы хранятся не в БД, там только ссылки на них, а сами файлы копируются в определенные папки там же где и располагается база

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

Re: Button и все что с ним связано

delphinsl
Приложите пожалуйста ваш проект к сообщению, с описанием, из какой таблицы и поля необходимо открыть файл и на какой форме, постараюсь помочь.

Dmitry.

10 Reply by delphinsl (edited by delphinsl 2015-08-18 18:53:56)

  • Registered: 2014-11-01
  • Posts: 121

Re: Button и все что с ним связано

Таблиц несколько, можно сделать реализацию из одной дальше я сам сделаю. Файл необходимо открыть из таблицы [Standarts] поле file_st

Post's attachments

Attachment icon БС1.rar 445.2 kb, 494 downloads since 2015-08-18 

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

Re: Button и все что с ним связано

delphinsl wrote:

Таблиц несколько, можно сделать реализацию из одной дальше я сам сделаю. Файл необходимо открыть из таблицы [Standarts] поле file_st

Добавил на Form1 кнопку "Открыть файл"

Post's attachments

Attachment icon БС1_fixed.zip 626.09 kb, 538 downloads since 2015-08-19 

Dmitry.
  • Registered: 2014-11-01
  • Posts: 121

Re: Button и все что с ним связано

Спасибо Дмитрий! То что нужно.