Mensagens em Delphi

0

Mensagens em Delphi

1 - MessageDLG(mensagem, tipo, [botões],contexto de ajuda);

Tipo: mtWarning

mtError

mtInformation

mtConfirmation

mtCustom

Botões: [mbYes]

[mbNo]

[mbOK]

[mbCancel]

[mbHelp]

[mbAbort]

[mbRetry]

[mbIgnore]

[mbAll]

Contexto de ajuda = 0

Valores diferentes de 0 (zero) utilizado só para help on-line;

Constantes: mrNo

mrOK

mrCancel

mrHelp

mrAbort

mrIgnore

mrRetry

mrAll

Exibe uma Caixa de Mensagem e obtem uma resposta do usuário. Onde Msg: Mensagem AType : Tipo da caixa de mensagem Value Meaning mtWarning A message box containing a yellow exclamation point symbol. mtError A message box containing a red stop sign. mtInformation A message box containing a blue "i". mtConfirmation A message box containing a green question mark. mtCustom A message box with no bitmap. The caption of the message box is the name of the application's executable file. AButtons : Quais botões aparecerão na caixa de mensagem Value Meaning mbYes A button with the text 'Yes' on its face mbNo A button with the text 'No' on its face mbOK A button with the text 'OK' on its face mbCancel A button with the text 'Cancel' on its face mbHelp A button with the text 'Help' on its face mbAbort A button with the text 'Abort' on its face mbRetry A button with the text 'Retry' on its face mbIgnore A button with the text 'Ignore' on its face mbAll A button with the text 'All' on its face mbYesNoCancel Puts Yes, No, and Cancel buttons in the message box mbOkCancel Puts t OK and Cancel buttons in the message box mbAbortRetryIgnore Puts Abort, Retry, and Ignore buttons in the message box MessageDlg returns the value of the button the user selected. These are the possible return values: Return values mrNone mrAbort mrYes mrOk mrRetry mrNo mrCancel mrIgnore mrAll procedure TForm1.Button1Click(Sender: TObject); begin if MessageDlg('Welcome to my Object Pascal application. Exit now?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin MessageDlg('Exiting the Object Pascal application.', mtInformation, [mbOk], 0); Close; end; end;

2 - MessageDLGPos(mensagem, tipo, [botões],contexto de ajuda,X,Y);

Semelhante a MessageDlg exceto por permitir indicar a posição na qual a janela será exibida procedure TForm1.Button1Click(Sender: TObject); begin MessageDlgPos('Are you there?',mtConfirmation, mbYesNoCancel, 0, 200, 200); end;

3 - Application.MessageBox(mensagem,NomeForm,botões + íconepadrão + posiçãopadrão);

Botões: mb_AbortRetryIgnore

mb_OK

mb_OkCancel

mb_YesNo

mb_YesNoCancel

mb_RetryCancel

Íconepadrão: mb_IconExclamation

mb_IconInformation

mb_IconQuestion

mb_IconStop

Posiçãopadrão: mb_DefButton1

mb_DefButton2

mb_DefButton3

mb_DefButton4

Constantes: IDOk

IDCancel

IDYes

IDNo

IDAbort

IDRetry

IDIgnore

{Pode utilizar esse comando para fazer confirmações de algum evento ou para apenas dar uma mensagem mais bonita do que o showmessage para o usuário} {Exemplo:} Application.messageBox('Deseja Excluir esse Registro?','Confirmação',mb_YesNo+mb_IconInformation+mb_DefButton2)then tbl_clientes.delete; {Essa eh uma confirmação de exclusão, antes de excluir o registro o sistema pergunta ao usuário, a segunda aspas eh o titulo da mensagem, o mb_YesNo são os botões que a mensagem terá, o mb_IconInformation é o ícone que aparecerá na mensagem e o DefButton2 diz o foco do botão, no caso se apertar enter será Não} {Tipos de icones: mb_IconInformation, mb_IconExclamation, mb_IconQuestion, mb_IconError} {Tipos de botões: mb_Ok, _mb_YesNo, mb_OkCancel, tbm tem Abort, Retry e Cancel} {exemplo de mensagem simples:} Application.MessageBox('Operação Realizada com Sucesso!','Aviso',mb_Ok+mb_IconExclamation);

Exercícios

Inserir um Button: alterar propriedade caption = sair

Criar método no evento onclick

Var

Resp: integer;

Begin

Resp := MessageDlg(‘Deseja sair?’,mtinformation,[mbYes,mbNo],0);

If (resp = mrYes) then

Close;
Autor: Thyago Henrique Pacher
Nosso pessoal é especializado em produção de sistemas para nuvem de acordo com o que for necessário para sua empresa e altamente configurável. Entre em contato conosco e podera ter seu sistema até hoje mesmo com máximo de garantia de dados salvos na nuvem e podendo recupera-los a hora que quiser. Temos em nosso portfólio o desenvolvimento de bons e grandes sistemas cujo são voltados para condominios ficando em GestCCon Sistema Concierge, JedisaMunck site para muncks, Site para advogados Ronald Arruda, empresas de consignação de créditos, sites institucionais, sites para cursos online com integração a plataformas famosas tais como moodle.
Utilizamos no nosso dia a dia as melhores ferramentas