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.
