Fórum MessageDlg Traduzido #261374

[color=green]

Function Mensagem( Texto, titulo: String; botoes: LongInt ): Boolean;
Begin
  MessageBeep ( 0 );
  // 32 = Símbolo Pergunta e botão Ok;
  // 36 = Símbolo Pergunta e botão Sim e não;
  // 20 = Símbolo Cancela e botão Sim e não;
  // 16 = Símbolo Cancela e botão Ok;
  // 48 = Simbolo Exclamação e botão Ok;
  // 52 = Simbolo Exclamação e botão Sim/Não;
  Application.NormalizeTopMosts;
  If Application.MessageBox( Pchar( Texto ), Pchar(Titulo) , botoes ) = IDYES Then
    Result := True
  Else
    Result := False;
  Application.RestoreTopMosts;
End;
[/color]

Mensagem(´Texto da mensagem´,´Texto da barra da mensagem´,48);

if Mensagem(´Confirma exclusão?´,´Confirmar:´,36) then
 Tabela.Delete;