Delphi dicas

Gravando uma imagem no formulário

// 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!!!}

por : Tiago Jesus Lemos De Assis