Delphi iniciante
Gente ja procurei e nao encontrei,codificaçao de apagar foto do dbimage,ja usei o destroy,mais com isso destroi eu axo q altomaticamente a funçao do componente,entao ele da um erro,se puderem me ajudar agradeço
Paulo
Curtidas 0
Melhor post
Raimundo Pereira
11/09/2015
USES JPEG
var IMG: TImage;
implementation
{$R *.dfm}
Criando a IMG em tempo de execução
begin
IMG := TImage.Create(self);
IMG.Parent := Form1;
IMG.AutoSize := True;
IMG.Align:=alClient;
IMG.Center:=true;
IMG.AutoSize:=true;
IF FILEEXISTE (DM.TABLE_PARAM.FIELBYNAME('CAMINHO_IMG').ASSTRING); THEN
BEGIN
IMG.Picture.LoadFromFile(DM.TABLE_PARAM.FIELBYNAME('CAMINHO_IMG').ASSTRING);
END
ELSE
BEGIN
ShowMessage('FALHA AO CARREGAR IMG >> '+DM.TABLE_PARAM.FIELBYNAME('CAMINHO_IMG').ASSTRING);
end;
APAGAR IMG
IMG.FREE;
Paulo, aguardo retorno.
var IMG: TImage;
implementation
{$R *.dfm}
Criando a IMG em tempo de execução
begin
IMG := TImage.Create(self);
IMG.Parent := Form1;
IMG.AutoSize := True;
IMG.Align:=alClient;
IMG.Center:=true;
IMG.AutoSize:=true;
IF FILEEXISTE (DM.TABLE_PARAM.FIELBYNAME('CAMINHO_IMG').ASSTRING); THEN
BEGIN
IMG.Picture.LoadFromFile(DM.TABLE_PARAM.FIELBYNAME('CAMINHO_IMG').ASSTRING);
END
ELSE
BEGIN
ShowMessage('FALHA AO CARREGAR IMG >> '+DM.TABLE_PARAM.FIELBYNAME('CAMINHO_IMG').ASSTRING);
end;
APAGAR IMG
IMG.FREE;
Paulo, aguardo retorno.
GOSTEI 2
Mais Respostas
Paulo
11/09/2015
vlw,me ajudou mt :)
GOSTEI 0
Joel Rodrigues
11/09/2015
Opa, por favor nos próximos tópicos utilize um título mais sugestivo, pois facilita a identificação por parte de quem está navegando no fórum.
GOSTEI 2