Buscar por:

Gravando uma imagem no formulário

Código

// Para gravar uma imagem na tabela de seu formulário é muito simples, basta seguir os passos abaixo:

// 1° Passo:

// Crie um campo chamado FOTO em sua tabela Paradox do tipo Graphic e um tamanho 220.

{ Field Name                   Type                      Size}

{Foto                              G                          220}

// 2° Passo:

// Insira em seu formulário o componente TDBImage, que se encontra na aba Data Controls.

// Insira o componente TOpenPictureDialog, que se encontra na aba Dialogs

// 3° Passo:

// No OnClik do componente TDBImage digite os seguinbtes códigos:

procedure TForm1.DBImage1Click(Sender: TObject);

begin

if OpenPictureDialog1.Execute then begin

DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

end;

end.

{Esse código pode ser inserido em um TButton ou TSpeedButton também}

{Espero ter ajudado!!!}