Baixe GOMES, Gilene Borges. Apostila de Delphi 7. Livro 4 e outras Notas de estudo em PDF para Matemática, somente na Docsity! Apostila de Delphi 7.0 Profa. Gilene B. Gomes 10. CAIXAS DE DIÁLOGO PREDEFINIDAS O Delphi oferece vários comandos para a exibição de caixas de diálogo comuns, como caixas de mensagem (Message Boxes) e caixas de entrada (Input Boxes). Esses comandos permitem que aplicativos com recursos simples de entrada e saída sejam criados rapidamente. 10.1. MESSAGE BOXES (CAIXAS DE MENSAGEM) As caixas de mensagem são usadas para exibir resultados, erros, ou avisos para o usuário. Elas são caixas modais (bloqueiam a execução do programa quando são exibidas). Há funções para mostrar caixas de mensagem no Delphi. A mais simples é ShowMessage, que mostra apenas uma mensagem e um botão OK. Já a função MessageDIg oferece mais opções, como símbolos e títulos diferentes. A função MessageBox permite criar um quadro de mensagem com vários botões e que retorne uma resposta do usuário, indicando qual botão foi escolhido. Para a entrada de informações simples, você pode usar a função InputBox. 10.2. USANDO O COMANDO SHOWMESSAGE Use o comando ShowMessage para mostrar uma mensagem simples para o usuário. A mensagem é exibida em uma pequena caixa, com um botão OK. A caixa é fechada quando o botão OK é clicado. No exemplo abaixo, uma caixa de mensagem é exibida quando o botão Button recebe um clique: procedure TForml.ButtonlClick (Sender: TObject); begin ShowMessage('Este comando não pode ser usado no momento. '"); end; A caixa de mensagem exibida é a seguinte: Este comando hão pode ser usado no momento. Como padrão, é exibido o nome do projeto na barra de título da caixa de mensagem. — www.gomeshp.com 38 Apostila de Delphi 7.0 Profa. Gilene B. Gomes 10.3. USANDO O COMANDO MESSAGEDLG O comando MessageDlg mostra uma caixa de mensagem que pode conter símbolos especiais, botões adicionais e outros elementos. O comando tem vários parâmetros que devem ser especificados. Veja a sintaxe do comando MessageDIg: MessageDig (<Mensagem>, <Tipo da Caixa>, <Botões>, <Número de ajuda>) ; <Mensagem> é um trecho de texto entre aspas simples, como para o comando ShowMessage. <Tipo da Caixa> determina o símbolo que será exibido na parte esquerda da caixa. Os cinco tipos disponíveis são ilustrados a seguir, além do comando usado para exibir cada tipo de caixa. O 1) Mensagem de informação | Cancel o Mensagem de aviso mtinformation MessageDlg ('Mensagem de informação”, mtinformation, mbOKCancel, 0); mtWarning MessageDlg ('Mensagem de aviso”, mtWarning, mbOKCancel, 0); 3 Mensagem de ento Cancel É 2) Mensagem de contimação Cancel | mtError MessageDlIg ('Mensagem de erro”, mtError, mbOKCancel, 0); mtConfirmation MessageDlIg ('Mensagem de confirmação”, mtConfirmation, mbOKCancel, 0); Dutra mensage Cancel | mtCustom MessageDlg ("Outra mensagem', mtCustom, mbOKCancel, 0); — www.gomeshp.com 39 Apostila de Delphi 7.0 Profa. Gilene B. Gomes 10.5. USANDO A FUNÇÃO INPUTBOX Essa função mostra uma caixa simples com um campo para a entrada (um componente Edit) de dados e os botões OK e Cancel. InputBox retorna uma String com o texto digitado pelo usuário. A função InputBox recebe três parâmetros: InputBox (<Título da Caixa>, <Texto do prompt>, <Texto padrão>) ; <Título da Caixa> define o texto que é exibido na barra de título da caixa. <Texto do prompt> é o texto exibido na parte interna da caixa. <Texto Padrão> é o texto padrão exibido dentro do campo de entrada. Este texto aparece inicialmente selecionado. Para não mostrar um texto padrão use um string vazio (º). Veja um exemplo a seguir: InputBox('Escolha de país', 'Digite o nome do país”, 'Brasil', Digite o nome do país: me E — Para recuperar o que foi digitado na InputBox, use uma variável para armazenar o valor. No exemplo a seguir, é usada uma variável 'NomeDoPais', do tipo String: procedure TForml.ButtonlClick (Sender: TObject); var NomeDoPais: String; begin NomeDoPais := InputBox ('Escolha de país', 'Digite o nome do país:!, 'Brasil'); ShowMessage ('Nome do país escolhido: ! + NomeDoPais); end; O exemplo lê um nome de país, usando a função InputBox, e exibe esse nome em uma caixa de mensagem. — www.gomeshp.com 42 Apostila de Delphi 7.0 Profa. Gilene B. Gomes 11. EXERCÍCIOS 1. Crie a linha de comando para cada uma das caixas de diálogo apresentadas abaixo e teste-as no Delphi: io ERR Título da caixa — www.gomeshp.com 43 Apostila de Delphi 7.0 Profa. Gilene B. Gomes [acta] Warning [x] tio ) Len] me | tome | tm | — www.gomeshp.com 44