salvando a cor

Delphi

20/10/2004

eu tenho um TMEMO e com q faço para alterar a cor de fundo desse componente em runtine e salvar essa cor no banco de dados ?.


Anicetojunior

Anicetojunior

Curtidas 0

Respostas

Xanatos

Xanatos

20/10/2004

procedure TfrmPrincipal.FormCreate(Sender: TObject);
var i: integer;
begin
  tbConf.Edit;
  tbConfCorMemo.AsInteger:= i;
  i:= clRed;
  Memo1.Color:= i;
  tbConf.Post;
end;


Bom esse codigo mostra mudando a cor do memo... vc pode criar uma tabela de configuracao e nela o campo CorMemo do tipo integer...

Algo assim... :wink:


GOSTEI 0
Anicetojunior

Anicetojunior

20/10/2004

obrigado,eu tive uma ideia eu tentei colocar um tcolordialog para atribuir uma cor ao meu memo,so que ele atribui uma cor errada,vc sabe como posso utilizar isso ?


GOSTEI 0
POSTAR