Topic: цвет по условию
procedure Form1_OnShow (Sender: TObject; Action: string);
var
sColor: string = SQLExecute('SELECT yesNo FROM one WHERE id=1');
begin
if (sColor ='0' ) then Begin sColor:= 'clBlack'; end else sColor:= 'clGreen';
Form1.TableGrid1.Color := sColor;
end;
что не так?
такой вариант не нужен
procedure Form1_OnShow (Sender: TObject; Action: string);
var
sColor: string = SQLExecute('SELECT yesNo FROM one WHERE id=1');
begin
if (sColor ='0' ) then Begin Form1.TableGrid1.Color := clBlack; end else Form1.TableGrid1.Color := clGreen;
end;