Dicas - Caixa de Mensagens

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Exibindo imagens em caixas de mensagens (MessageDlg).

Exibindo imagens em caixas de mensagens

 

Este código mostra como exibir imagens .bmp em caixas de diálogos. Desta maneira você não precisará se prender as imagens padrões do Delphi. Inicie uma nova aplicação CLX (File|New|CLX Application) depois coloque o código a seguir no evento OnClose do formulário.

 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

var

  B: TBitmap;

begin

   B := TBitmap.Create;

   try

      try

//lembre-se que para este exemplo funcionar é preciso que o arquivo

// "msg_image.bmp" esteja em "C:\"

      B.LoadFromFile('c:\msg_image.bmp');

      if MessageDlg('Confirme','Deseja realmente sair do programa?',mtCustom,[mbYes,mbNo],0,mbNo,B) = mrYes then

            Application.Terminate

      else

            Action:=caNone;

       except

            ShowMessage('Não foi possível abrir o arquivo "c:\icone.bmp"');

       end;

       finally

              B.Free;

       end;

end;

 

Conclusões: Ao clicar no ícone para fechar o formulário você receberá a imagem.bmp da maneira como ela foi configurada.

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?