Personalizar MessageBox

28/08/2024

Pessoal, tenho um la�o FOR onde calculo parcelas e ao final da inclus�o das parcelas, disparo uma mensagem que cont�m o numero da parcela, o vencimento e o valor.
Ocorre que se eu lan�ar muitas parcelas, a mensagem fica enorme.
Pensei em delimitar a mensagem para listar at� 3 parcelas e ap�s a 3� parcela, escrever : "e mais xxx parcelas" ou listar as 3 primeiras, colocar uns pontos e listar a ultima.
Ser� que � poss�vel fazer?

ex:

1� parcela - 30/08/2024 - R$ 250,00
1� parcela - 30/09/2024 - R$ 250,00
1� parcela - 30/10/2024 - R$ 250,00
.
.
18� parcela - 30/08/2025 - R$ 250,00

  Mensagem:= 'Inclus�o de conta realizada com sucesso!'+#13;

  for i := 1 to StrToInt(EdParcelas.Text) do
  begin
    if i = StrToInt(EdParcelas.Text) then
    begin
      //rotina de parcelamento
    end

  Mensagem := Mensagem +#13+IntToStr(i)+'� Parcela - '+FormatDateTime('dd/mm/yyyy',VencParcela)+' - '+FormatFloat('R$ #,##0.00',ValorParcela);
  Application.MessageBox(Pchar(Mensagem),'Sis Contas',MB_OK + MB_ICONINFORMATION);

Renan

Curtir t�pico + 0

Responder

Posts

28/08/2024

Arthur Heinrich

Mensagem:= 'Inclus�o de conta realizada com sucesso!'+#13;
 
for i := 1 to StrToInt(EdParcelas.Text) do
  begin
    //rotina de parcelamento - c�lculo da parcela i

    if ( ( StrToInt(EdParcelas.Text) <= 5 ) or
         ( i <= 3 ) or
         ( i = StrToInt(EdParcelas.Text) ) ) then
      Mensagem := Mensagem +#13+IntToStr(i)+'� Parcela - '+FormatDateTime('dd/mm/yyyy',VencParcela)+' - '+FormatFloat('R$ #,##0.00',ValorParcela)
    else
      if ( i = 4 ) then
        Mensagem := Mensagem +#13+'...';
  end;
Application.MessageBox(Pchar(Mensagem),'Sis Contas',MB_OK + MB_ICONINFORMATION);

Responder

Gostei + 0

28/08/2024

Emerson Nascimento

sugiro apresentar as parcelas numa grade. uma control grid daria um resultado muito bom

Responder

Gostei + 0

29/08/2024

Renan

Obrigado pelas respostas pessoal.

Acho que vou tirar essa op��o das parcelas e apresentar apenas um resumo da opera��o

Mensagem:= 'Inclus�o de conta realizada com sucesso!'+#13+#13+
             'Fornecedor  : '+EdCedente.Text +#13+
             'N� Parcelas : '+EdParcelas.Text +#13+
             'Valor Total : '+FormatFloat('R$ #,##0.00',Total);

  Application.MessageBox(Pchar(Mensagem),'Sis Contas',MB_OK + MB_ICONINFORMATION);

N�o sei porque, mas n�o consigo deixar o texto alinhado na mensagem, da mesma forma que est� acima.

Responder

Gostei + 0

29/08/2024

Arthur Heinrich

O MessageBox exibe a mensagem utilizando um fonte de espa�amento vari�vel, impedindo o alinhamento.

Parece que d� para criar um hook (Uma callback function) que � chamada ao criar a janela. Neste momento, d� para setar o fonte do MessageBox. Mas � uma solu��o complexa.

Mais f�cil criar a sua pr�pria janela de mensagens.

Responder

Gostei + 0