Classe TDialogs

O método CreateMessageDialog mostra uma mensagem formatada onde a função reconhece ˆM para passagem de linha, ˆJ retorno do carro e ˆC.

• NOTA

  • O texto entre ˆC vai ficar alinhado no centro do topo do formulário.

• EXEMPLO

A procedure Alert executa um dialogo com botão OK

A procedure Confirm executa um diálogo com dois botões: OK e Cancel

• RETORNA:

  • True : Se o botão OK foi pŕessionando;

  • False : Se o botão Cancel foi pŕessionando.

• EXEMPLO

  
  procedure TForm1.Test_tobjects_dlgs_Confirm;
  begin
    with TObjectss.dlgs do
      if Confirm('Test_tobjects_dlgs_Confirm','Continua o processamento?')
      then Alert('Test_tobjects_dlgs_Confirm','Confirmado a ação!')
      else Alert('Test_tobjects_dlgs_Confirm','Não confirmado a ação!');
  end;

A função Prompt mostra um dialogo com dois botões OK e Cancel e uma entrada de dados solicitando que o usuário digite um valor.

• RETORNA:

  • True : Se o botão ok foi pŕessionando;

  • False : Se o botão cancel foi pŕessionando.

  • aResult : Retorna a string digitada no formulário;

• EXEMPLO

  
  procedure TForm1.Test_tobjects_dlgs_Prompt;
    var idade,fmt : string;
  begin
    idade := '';
    with TObjectss.dlgs do
      if Prompt('Test de Dlgs.Prompt','Qual a sua idade',idade)
      then begin
             fmt := format('Idade digitada: %s   '+ˆM+
                           'Idade de meu pai é %d ',[idade,102]);
             Alert('Test de Dlgs.Prompt',fmt) //
           end
      else Alert('Test de Dlgs.Prompt','Ok. Respeito sua privacidade.');
  end;

A função GetPassword mostra um diálogo para receber um valor sem mostrar o que foi digitado. O formulário possui dois botões OK e Cancel

• RETORNA:

  • True : Se o botão ok foi pressionado;

  • False : Se o botão cancel foi pressionado.

  • apassword : Retorna a string com a senha do usuário.

A função GetPassword mostra um dialogo solicitando o login do usuário e a senha e dois botões OK e Cancel

• RETORNA:

  • True : Se o botão ok foi pŕessionando;

  • False : Se o botão cancel foi pŕessionando.

  • aUsername : Retorna a string com nome do usuário.

  • apassword : Retorna a string com a senha do usuário.

• EXEMPLO

  
  procedure TForm1.Test_tobjects_dlgs_password;
    Var
      s,u : string;
  begin
    s := '';
    with TObjectss.dlgs do
      if GetPassword('Password',u,s)
      then Alert('Password','A senha digitada é: '+S)
      else Alert('Password','Senha não informada');
  
  end;