|
#1
|
|||
|
|||
Цвет формы
Хочу присвоить форму цвет записанный в базу данных, но он ругаеться на не совместимые типы
Код:
DataModule1.Rashodi_podschet_ADOQuery.Active:= false; DataModule1.Rashodi_podschet_ADOQuery.SQL.Clear; DataModule1.Rashodi_podschet_ADOQuery.SQL.Add('select parametr '); DataModule1.Rashodi_podschet_ADOQuery.SQL.Add('FROM [Setting]'); DataModule1.Rashodi_podschet_ADOQuery.SQL.Add('WHERE name =' + '''Form_color'''); DataModule1.Rashodi_podschet_ADOQuery.Active:= true; Form1.Color := DataModule1.Rashodi_podschet_ADOQuery.Fields[0].AsString; Последний раз редактировалось qwwwq, 14.01.2009 в 19:40. |
#2
|
|||
|
|||
Правильно ругается, т.к. clSkyBlue - это по сути численная константа типа TColor (может быть преобразован к Integer).
|
#3
|
|||
|
|||
clSkyBlue это стринговое значение просто текст.
|
#4
|
|||
|
|||
А должно быть TColor (для того, что бы присвоить свойству Color формы).
|
#5
|
|||
|
|||
Код:
DataModule1.Rashodi_podschet_ADOQuery.Fields[0].AsString; |
#6
|
|||
|
|||
А ничего. У тебя неправильный тип поля. Поле в БД надо сделать Integer и писать туда именно значение константы clSkyBlue (т.е. тип TColor).
|