Jump to content
Fórum Script Brasil

wagner123

Membros
  • Content Count

    12
  • Joined

  • Last visited

Community Reputation

0 Neutro

About wagner123

  1. 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.
  2. 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
  3. Incompatible types: 'TMsgDLgButtons' and 'TMsgDLgType'
  4. 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!
  5. 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 } e
  6. 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!
  7. 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!
  8. Incompatible types: 'TMsgDLgButtons' and 'TMsgDLgType' postando o erro que aparece quando eu aperto F9 ai. valeu!
  9. 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
  10. 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!
  11. 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: TO
  12. 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.
×
×
  • Create New...