janela de mensagem Delphi Application.messagebox

1, o namespace: Vcl.Forms

2, Application.MessageBox () parâmetros:

      Tais como: Application.MessageBox ( ' o resultado da pesquisa atual está vazio, certifique-XXXXX! ' , ' Dica: ' , MB_OK) 
                primeiro e segundo são: PWideChar 
                        quando usado em tipo string message_info pode usar esta conversão: PWideChar (WideString (str_Message)) 
                    a Mensagem _info: = ' o resultado da pesquisa atual está vazio, certifique-XXXXX! ' ;
                         Mensagem _ tipo : = ' Dica: ' ;                        
                        Application.MessageBox (PWideChar (a WideString ( Mensagem do _info)), PWideChar (a WideString ( Mensagem _ tipo )), MB_OK)
                O terceiro parâmetro é o tipo de chaves no formulário:      
                        MB_OK: Apenas OK chave 
                        MB_OKCANCEL: OK e Cancelar chaves

3, Application.messagebox (): devolve o valor.

     Clique em OK: O valor de retorno é 1 (Integer); 
         tais como: 
         IF (Application.messagebox ( ' OK para apagar? ' , ' Dica: ' , MB_OKCANCEL) <> 1 )
          a começar 
 
         End ;