[TUTORIAL] MessageBox 'IDYES' e 'IDNO' ( Sim e Não )

[DragonBoss 8]

Aeww galeraa....

td blz com vcs ?

 

To meio sumido do forum ( de novo ), porque meu pc ta com uns problemas, e nao vo arrumar ele, já que provavelmente irei comprar outro pc... mas entao, aposto que ninguem ta ligando pra isso. --'

 

Entao vamos ao tuto:

 

O que é messagebox ?

 

Basicamente são aquelas mensagens do windows, do tipo da lixeira ("Deseja excluir o arquivo tal?")... e o IDYES e o IDNO, nada mais são que o SIM e o NAO, dessas mensagens...

 

Eu acho bem interessante usar isso nos programas, fica com uma cara bem legal.

 

Entao pra demonstrar como usar isso, vo fazer algo bem simples:

 

Vo criar um novo projeto ( quando vc abre o delphi ele jah faz isso ) e vo apenas inserir um novo botao no FORM. Agora iremos mudar a caption desse Botao para "Sair do Programa".

 

Feito isso, iremos inserir o codigo do ONCLIK do botao ( de um duplo click nele e vc já estara no codigo dele) e entao coloque o seguinte codigo:

 

if application.messagebox(pchar('Tem certeza que deseja sair do programa?'),

pchar(Caption),36) = IDYES then begin

form1.Close ;

 

end;

 

Explikando:

 

Ele abrira uma janela de mensagem perguntando "Tem certeza que deseja sair do programa?", e se vc clicar em SIM ( ou seja, IDYES ), ele vai fechar o form1 (nome do formulario do meu programa ), e caso clique em nao, ele nao ira fazer nada.

 

Copilem e testem ^^.

 

Dica: no '36', aki >>> (Caption),36) = IDYES , vcs podem colocar o numero 20, que é outra mensagem, com um X vermelho ( testem outros numeros tbm, é bem interessante o 'modelo' de mensagens ).

 

DICA²: Se nao quiserem por sim como o botao de 'ação', é soh trocar o IDYES , daki >>> pchar(Caption),36) = IDYES then

por IDNO.

 

DICA³: isso é um exemplo simples que fiz pessoal, só pra dar a ideia de como usar application.messagebox , vcs podem alterar e usar de acordo com suas necessidades.

 

 

É isso galera, espero que tenha ajudado, isso é algo bem legal para se inserir no programa.

 

O codigo fonte devera ficar + ou - assim :

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Flw ,

Abraços a todos.

 

Edit~

 

ahh, jah ia me eskecendo xD.. e antes que alguem faleee : "Cade os créditos?"

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[matheusguerra 3]

cara muito bom o tuto

e o programa

 

no exemplo, a mensagem aparece ao clickar no botão de fechar

da pra muda o codigo e criar ums programas bem proficionais

 

(ainda mais eu que queria criar um SO baseado em delphi)

[~OwneR~ 8]

criar um SO[/color] baseado em delphi)

 

Boa sorte aí champs, criar um SO do zero feito em delphi é impossível o_ó

[-CharlesHenriquePedia 0]

boa noite amigos, eu tambem conheço esse código só que diferente:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

funciona tbm, gostei do seu mas naum vi diferença. abçs

[Ryokusei 21]

boa noite amigos, eu tambem conheço esse código só que diferente:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

funciona tbm, gostei do seu mas naum vi diferença. abçs

 

A diferença está nas constantes. mr = Modal Result, ID = Identificação. ModalResult também é usado em forms, ID é mais pra API MessageBox.

[-CharlesHenriquePedia 0]

ahhh entendi, que no caso ali ele usa pchar correto ?

[Ryokusei 21]

PAnsiChar e PChar dão no mesmo, ambos representam um ponteiro para string ANSI, a diferença é que PChar é para caractere ANSI mas funciona de qualquer forma.

[~OwneR~ 8]

boa noite amigos, eu tambem conheço esse código só que diferente:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

funciona tbm, gostei do seu mas naum vi diferença. abçs

 

MessageDlg não pode alterar o título e o título fica em inglês (confirm, error, warning) e os botões também (yes, no, cancel).