[Iniciante / Delphi / Tutorial] Trabalhando com Caixas de Diálogo (MessageBox, MessageDlg, ShowMessage)

Esse tutorial é para Iniciantes em delphi, é básico, tentarei resumir aqui.

Caixas de Diálogos, em Delphi, que eu conheça, existem 3 tipos:

ShowMessage()
MessageBox()
MessageDlg()

A de mais fácil manipulação é ShowMessage, já que é algo simples.

Lembrando, uma Mensagem envolve strings, ou seja, Máximo de Caracteres é 255.


ShowMessage ()

Sintaxe:

Código:

ShowMessage (Texto);

Caso 1 - Mensagem Simples:

Código:

ShowMessage ('Textinho rs');

Caso 2 - Mensagem Simples com Linhas

Código:

ShowMessage ('Linha1'#13'Linha 2'#13'Linha ...'#13'Linha X');

Caso 3 - Mensagem a Partir de um Edit ou Caption de uma Label (ou outro componente)

Código:

ShowMessage (EditX.Text);
ShowMessage (LabelX.Caption);

Caso 4 - Mensagem a Partir de uma variável do tipo String

Código:

var
s : string;
begin
s := 'oi';
ShowMessage (s);
end;

MessageBox ()

Sintaxe:

Código:

MessageBox (handle, Mensagem, Título, botões e ícone);

Lista de Botões:

MB_OK
MB_OKCANCEL
MB_RETRYCANCEL
MB_YESNO
MBYESNOCANCEL
MB_ABORTRETRYIGNORE

Lista de Ícones:

MB_ICONEXCLAMATION
MB_ICONWARNING
MB_ICONINFORMATION
MB_ICONASTERISK
MB_ICONQUESTION
MB_ICONERROR

Valores Retornáveis:

IDYES
IDRETRY
IDOK
IDNO
IDIGNORE
IDCANCEL
IDABORT

Você junta botões e ícones, porém os valores retornáveis, serve para atribuir ações a esses botões.

Caso 1 - MessageBox comum:

Código:

MessageBox (handle, 'Mensagem', 'Título', MB_OK+MB_ICONEXCLAMATION);

Caso 2 - MessageBox com linhas:

Código:

MessageBox (handle, 'Linha1'#13'Linha 2'#13'Linha ...'#13'Linha X', 'Título', MB_OK+MB_ICONEXCLAMATION);

Caso 3 - MessageBox a partir de Edit ou Caption de um Label:

Código:

MessageBox (handle, PChar(EditX.Text), 'Título', MB_OK+MB_ICONEXCLAMATION);
MessageBox (handle, PChar(LabelX.Caption), 'Título', MB_OK+MB_ICONEXCLAMATION);

Caso 4 - MessageBox a partir de uma variável:

Código:

var
s : string;
begin
s := 'oi';
MessageBox(handle, Pchar(s), 'Título', MB_OK+MB_ICONEXCLAMATION);
end;

Caso 5 - Utilizando Case para ações como IDYES e IDNO:

Código:

 case MessageBox(Handle, 'Fechar programa?', 'Título', MB_OK+MB_YESNO) of
IDYES : Application.Terminate;
IDNO : CancelDrag;
end;

MessageDlg ()

Sintaxe:

Código:

MessageDlg (mensagem, tipo de mensagem, [botão], integer) //no integer, pode ser 1

Lista de Tipos de Mensagem

mtWarning
mtError
mtInformation
mtConfirmation
mtCustom

Lista de Botões (com [ ] )

[mbYes]
[mbNo]
[mbOk]
[mbCancel]
[mbAbort]
[mbRetry]
[mbIgnore]
[mbAll]
[mbNoToAll]
[mbYesToAll]
[mbHelp]

Lista de Botões (sem [ ] )

mbOKCancel
mbYesNoCancel
mbYesAllNoAllCancel
mbAbortRetryIgnore
mbAbortIgnore

Valores Retornáveis:

Praticamente iguais ao MessageBox

Caso 1 - MessageDlg comum:

Código:

MessageDlg('mensagem', mtWarning, [mbOK], 1)

Caso 2 - MessageDlg com linhas:

Código:

MessageDlg('Linha 1'#13'Linha 2'#13'Linha ...'#13'Linha X', mtWarning, [mbOK], 1)

Caso 3 - MessageDlg a partir de Edit ou Caption de um Label:

Código:

MessageDlg(PChar(EditX.Text), mtWarning, [mbOK], 1);
MessageDlg(PChar(LabelX.Caption), mtWarning, [mbOK], 1);

Caso 4 - MessageDlg a partir de uma variável:

Código:

var
s : string;
begin
s := 'oi';
MessageDlg(PChar(s), mtWarning, [mbOK], 1);
end;

Caso 5 - Utilizando Case para IDYES e IDCANCEL:

Código:

Case MessageDlg('deseja fechar?', mtWarning, mbOKCancel, 1) of
IDOK : Application.Terminate;
IDCANCEL : CancelDrag;
end;

aee

demoro mais achei 1 tutorial q presta =D

foi vc q fez tudo ou copio de qual site ou qual forum xD?


Vlw man tava precisando

mais eu nao entendi o algoritmo do MessageBox
tipo confudiu minha mente
mais ta otimo

qual algoritimo não entendido?
sim, eu fiz do 0 esse tópico, e tenho um fórum só de programação
você pode conferir ele no portal da masterexp, darkprogramming.


O tutorial é básico, é iniciante.
Abraços.

Eu não entendo nada de programação, mas seu tópico ficou muito bom.
Ficou simples, fácil de ser entendido e com certeza ajudará pessoas como eu.

Abraços.