Ir para conteúdo
Fórum Script Brasil
  • 0

plano de fundo no Form


Vivendo&Aprendendo

Pergunta

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

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...