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.

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

Incompatible types: 'TMsgDLgButtons' and 'TMsgDLgType'

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!

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.

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!

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!

Incompatible types: 'TMsgDLgButtons' and 'TMsgDLgType' postando o erro que aparece quando eu aperto F9 ai. valeu!

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

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!

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!

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.