Ajuda simples no Delphi

[wagner123]

Olá pessoal, iniciei os estudos com Delphi há poucos dias e estou usando o livro "dominando o Delphi" como base para os estudos.

Estou criando um formulário e cheguei na parte da criação de uma mensagem resposta que aparece quando eu clico no botão criado.

O livro me informa o seguinte código: MessageDlg (´Olá, pessoal´, mtInformation, [mbOK], 0); Escrevo esse código na janela de edição do programa porém quando vou fazer o teste a mensagem resposta não aparece.

Alguém ai sabe me dizer se estou fazendo algo de errado ou deixando de fazer algo?

Obrigado desde já galera.

[flavioavilela]

experimente fazer assim:

showmessage('Oi pessoal');

qualquer coisa, poste o código por completo ai para vermos o que pode estar havendo de errado...

[__WIGLAN__]

Opa amigo, o seguinte codigo funciona:

de dois cliques no botao e adicione este codigo :

MessageDlg('Olá, pessoal', mtInformation, [mbOK], 0);

ou

Application.MessageBox('Olá, pessoal','Bem Vido',mb_Ok + mb_IconExclamation);

Thé +

-----------------------------------------------------

Reverse_Text 2.2. Download Inversor de Link:

http://extremeprogramming.wordpress.com/20...xt-2-0-solucao/

-----------------------------------------------------

Editado Janeiro 24, 2011 por __WIGLAN__

[flavioavilela]

mas em qual evento do botão está o código???

experimente colocar no evento OnClick do botão o seguinte código

ShowMessage('Oi');

e ve se funciona quando der um clique apenas no botão...

[wagner123]

Olá pessoal, tentei todas as respostas que vocês me deram mas infelizmente ainda não consegui.

Respondendo o flavio: o código está no evento OnClick do botão.

Vou postar o Código completo para vermos se estou fazendo algo de errado:

unit OLA_F;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

OlaButton: TButton;

procedure OlaButtonClick(Sender: TObject);

procedure OlaButtonContextPopup(Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.OlaButtonClick(Sender: TObject);

begin

MessageDlg('Olá, pessoal', mtInformation, [mbOK], 0);

end;

Estou desconfiado de que estou fazendo algo de errado, eu apenas coloco o código e já volto para aonde está o botão para fazer o teste. Por acaso eu deveria fazer alguma coisa nesse intervalo? talvez compilar... ?

Bem, grato desde já pessoal. valeu!

[flavioavilela]

bom, por acaso você está pressionando F9 para entrar no modo de execução rsrsrs??? pelo que você descreveu ai, vejo que não está...

[wagner123]

euahuieahoieua

realmente não estava, pressionei o F9 agora e apareceu umas msgs de erro logo embaixo da janela de edição e inclusive essa parte do código ficou sublinhada de vermelho: procedure OlaButtonContextPopup(Sender: TObject; MousePos: TPoint;

sabe o que pode ser?

valeu flavio!

[flavioavilela]

é bem provavel que você deve ter dado dois cliques em outros objetos, sem ser o duplo clique que você deu no botão..... apague essa linha escrita:

Procedure OlaButtonContextPopup(Sender: TObject; MousePos: TPoint);
begin

end;

e apague todas essas declarações dessas procedures... deixe apenas a declaração do OlaButtonClick...

[wagner123]

apaguei a linha que mandou e todas as outras declarações das procedures, apertei F9 e antes mesmo de ir clicar no botão já apareceu a seguinte msg de erro: Expected END but VAR found.

Abri o formulário novamente e sem excluir nada cliquei F9 para ver o que acontecia e agora a tarja vermelha apareceu em cima dessa linda do código: MessageDlg (´Olá, pessoal´, mtInformation, [mbOK], 0);

Obrigado pela atenção flavio

[wagner123]

Incompatible types: 'TMsgDLgButtons' and 'TMsgDLgType'

postando o erro que aparece quando eu aperto F9 ai.

valeu!

[flavioavilela]

bom, acho que você apagou linhas demais rsrsrs...

veja se está assim (tem que estar assim)

procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageDlg ('Olá, pessoal', mtInformation, [mbOK], 0);
end;

observe também se, logo após a linha

procedure TForm1.Button1Click(Sender: TObject);

tem algo digitado que não seja um Begin... e se esse Begin possui um End; e se entre o Begin e o End; tem a linha de comando

MessageDlg ('Olá, pessoal', mtInformation, [mbOK], 0);

... observe bem que o End; tem um ;(Ponto e virgula) no final... tem que ter, para indicar o final de linha...

[wagner123]

Flávio, conferi o código novamente aqui e está idêntico ao que você mostrou.

Infelizmente eu devo ter feito algo errado antes, só pode. Acho que vou voltar ao início da montagem e tentar novamente.

mesmo assim eu agradeço a boa vontade.

abraço!

[wagner123]

opa, fiz novamente o formulário e agora consegui aqui! com certeza estava fazendo algo de errado pena que eu não sei o que era.

Muito Obrigado flávio.

abraços!

[flavioavilela]

faça isso mesmo... começa outro projeto do zero... coloque o botão, de dois cliques no botão para abrir a janela de codificação, coloque a linha de código para chamar a mensagem e pronto....... ai, pressiona F9 para testar.... mas o ideal seria você conseguir ver onde está o erro, para você já ir pegando os esquemas de corrigir (pois serão mtos) rsrs.... faz assim.... posta o código por completo ai... da um Ctrl + A e cola o codigo aqui para analisar... ai te falo o que pode estar havendo... se preferir é claro...

[wagner123]

claro claro! então como disse, comecei do zero e dessa vez deu certo.

vou postar os dois códigos aqui para que possamos analisar melhor esses erros flávio.

na sequência: o primeiro código é o que deu certo e o segundo é o que aparece as msgs de erro quando aperto F9 para executar.

1º código

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

MessageDlg ('Olá, pessoal', mtInformation, [mbOK], 0);

end;

end.

2º código

unit OLA_F;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

OlaButton: TButton;

procedure OlaButtonClick(Sender: TObject);

procedure OlaButtonContextPopup(Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.OlaButtonClick(Sender: TObject);

begin

MessageDlg (´Olá, pessoal´, mtInformation, [mbOK], 0);

end;

end.

muito obrigado novamente.

[flavioavilela]

no segundo código, apague isso

procedure OlaButtonContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);

aquela hora você removeu na parte de implementação essa procedure... faltou remover na parte de criação dela....

[wagner123]

apaguei, apertei F9 e a msg de erro ainda assim permaneceu. Conferi os dois códigos e tinha uma outra linha a ser apagada, apaguei ela e mesmo assim quando aperto F9 a tarja vermelha fica em cima da linha: MessageDlg (´Olá, pessoal´, mtInformation, [mbOK], 0);

Daí eu simplesmente copiei o código completo e colei lá e ainda assim não deu. euahoeahiuea

valeu flavio, abraços!

[flavioavilela]

e o que diz a mensagem na tarja vermelha??

[wagner123]

Incompatible types: 'TMsgDLgButtons' and 'TMsgDLgType'

[flavioavilela]

bom, pelo que estou vendo, o código está assim:

MessageDlg (´Olá, pessoal´, mtInformation, [mbOK], 0);

coloque assim:

MessageDlg ('Olá, pessoal', mtInformation, [mbOK], 0);

onde está escrito: Olá, pessoal tem que estar entre ' ' (aspas simples).... verifique isso

[wagner123]

perfeito flavio! tudo certo. O livro que estou utilizando usa do outro jeito e era por isso que eu não estava conseguindo.

muito obrigado pela ajuda flavio, vou voltar aos estudos :D

[flavioavilela]

beleza cara... precisando, estamos aqui... e boa sorte nos estudos...

[wagner123]

Flávio, estou com um outro probleminha aqui. Eu acredito que o livro que estou usando faz referência a uma versão mais antiga do Borland Delphi e a versão que uso é a 6. O livro me dá os passo para que eu possa abrir a browser gallery porém sigo aqueles passos e não consigo achar a mesma coisa na minha versão. Você por acaso saberia como acessar o browser gallery na versão 6?

Obrigado novamente.

[flavioavilela]

bom, não conheço nada com o nome de browser gallery rsrs... o que exatamente está tentando fazer?

[WarLock2010]

OI galera estou criando uma aplicação queria fazer quando ela for instalar ela se inicie automaticamente com o windows mas somente uma vez, depois se o user quisr abrir ele tem q abrir normalmente tem como?