Código
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;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009