Buscar por:

exibindo imagens em caixas de mensagens de aplicações clx

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;