plano de fundo no Form

[Vivendo&Aprendendo]

No Access

Crie uma tabela em seu banco de dados com os seuintes campos:

Código – AutoNumérico

FotoTela – Texto – 200 caracteres

Salve a tabela como TelaPrincipal.

No Delphi

Crie um menu para receber o código de alteração. Adicione um componente OpenPictureDialog1 que está na paleta Dialogs, e altere a propriedade InitialDir para o local que está armazenado as suas imagens (isso não é obrigatório) e altere a propriedade Name para OpenPictureDialog. Adicione um componente Image1 que está na paleta Aditional, no form principal e altere as seguintes propriedades: align para alClient, autoSize para True, Name para ImgPrinc, Stretch para True. Agora no evento OnClick do menu que você criou adicione o seguinte código:

procedure TFrmPrincipal.AlterarPlanodeFundo1Click(Sender: TObject);

begin

OpenPictureDialog.Execute;

DmDados.TblTelaPrinc.Last;

DmDados.TblTelaPrinc.Edit;

DmDados.TblTelaPrinc.FieldByName('FotoTela').AsString := OpenPictureDialog.FileName;

DmDados.TblTelaPrinc.Post;

ImgPrinc.Picture.LoadFromFile(OpenPictureDialog.FileName);

end;

Obs: Deixe a propriedade Active da tabela = True, se não você terá que alterar o código um pouco.

No evento OnActivate do form principal adicione o seguinte código:

procedure TFrmPrincipal.FormActivate(Sender: TObject);

begin

OpenPictureDialog.FileName := DmDados.TblTelaPrinc.FieldByName('FotoTela').AsString;

ImgPrinc.Picture.LoadFromFile(OpenPictureDialog.FileName);

end;

A primeira vez que for executado o programa ocorrerá um erro, mas é só compilar novamente e dar Ok nos erros que irá funcionar, o erro ocorre porque existem propriedades que estão vazias ainda, é só compilar e adicionar a imagem desejada no form que depois não dará mais o erro.

pode fazer tb usando uma variavel no lugar da tabela do banco de dados