Adicionar Imagem em Objeto: TImage no Delphi

Olá galera, nesta Quick Tips, irei mostrar como podemos armazenar uma imagem em nossos objetos, como a foto de um cliente, irei usar uma property do tipo TPicture, esta por sua vez é a propriedade do componente TImage, no qual conseguimos ilustrar e exibir imagens no Delphi

Vamos criar uma unit uCliente.pas, e salvar ela. Veja seu código completo.

unit uCliente;

interface

uses ExtCtrls, Graphics;

   Type

   TCliente = class

   private

   FCodigo: String;

   FSexo: String;

   FNome: String;

   FFoto: TPicture;

   procedure SetCodigo(const Value: String);

   procedure SetNome(const Value: String);

   procedure SetSexo(const Value: String);

   procedure SetFoto(const Value: TPicture);

   { private declarations }

   protected

   { protected declarations }

   public

   { public declarations }

   property Codigo: String read FCodigo write SetCodigo;

   property Nome: String read FNome write SetNome;

   property Sexo: String read FSexo write SetSexo;

   property Foto: TPicture read FFoto write SetFoto;

   published

{ published declarations }

end;

implementation

{ TCliente }

procedure TCliente.SetCodigo(const Value: String);

begin

   FCodigo := Value;

end;

procedure TCliente.SetFoto(const Value: TPicture);

begin

   FFoto := Value;

end;

procedure TCliente.SetNome(const Value: String);

begin

   FNome := Value;

end;

procedure TCliente.SetSexo(const Value: String);

begin

   FSexo := Value;

end;

end.

Agora vamos criar um form, e salvar o mesmo como uFrmPrincipal, vamos adicionar 1 StringGrid, e 2 BitBtn(BtnGravar, BtnCarregar), 2 TImage, suas implementações são bem simples, mas antes disso precisamos dar uses em uCliente.pas.

{ Registrando no StringGrid 1 objeto com a imagem carregada no primeiro TImage}

procedure TFrmPrincipal.BtnGravarClick(Sender: TObject);

Var

C : TCliente;

begin

C := TCliente.Create;

C.Codigo := '1';

C.Nome := 'Wesley Y';

C.Sexo := 'M';

C.Foto := Image1.Picture;

StringGrid1.Objects[1,1] := C;

StringGrid1.Cells[1,1] := C.Nome;

end;

{ Recuperando a imagem para um outro TImage, armazenada no Objeto }

procedure TFrmPrincipal.BtnRecuperarClick(Sender: TObject);

begin

Image2.Picture := TCliente(StringGrid1.Objects[1,1]).Foto;

end;

Vimos como é fácil armazenar imagens, assim como podemos armazenar strings ou integer, bem simples.

Fico por aqui até a próxima parte.

Um abraço

Wesley Y

wyamazack@rwsolution.com.br