MessageDlg - como exibir bitmaps nas caixas de dialog (CLX)

Top  Previous  Next

Exibindo imagens em caixas de mensagens de Aplicações CLX

 

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;