Ir para conteúdo
Fórum Script Brasil
  • 0

Ajuda simples no Delphi


wagner123

Pergunta

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.

Link para o comentário
Compartilhar em outros sites

24 respostass a esta questão

Posts Recomendados

  • 0

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 por __WIGLAN__
Link para o comentário
Compartilhar em outros sites

  • 0

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!

Link para o comentário
Compartilhar em outros sites

  • 0

é 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...

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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...

Link para o comentário
Compartilhar em outros sites

  • 0

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...

Link para o comentário
Compartilhar em outros sites

  • 0

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.

Link para o comentário
Compartilhar em outros sites

  • 0

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!

Link para o comentário
Compartilhar em outros sites

  • 0

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.

Link para o comentário
Compartilhar em outros sites

  • 0

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?

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...