Paulo Henrique O Mellotti

Blackleaf, valeu!! Copiei o seu codigo e não deu certo. Existe outra maneira de se fazer a mesma coisa? Vou te dizer exatamente da maneira que fiz pra ver se "comi bola". Criei dois buttons Renomei o Caption do primeiro como ON e do segundo como OFF O Name do primeiro btn1 e do segundo btn2 Selecionei o btn1, fui no Object Inspector na aba Events --> OnClick dei dois cliques na parte em branco e ele abriu a UTeste.pas para digitar conforme te passei anteriormente, OK sem problemas. Quando fui fazer com o segundo botão, ou seja, clique no segundo botão, fui no Object Inspector e também dei dois cliques na parte em branco do OnClick, aí me aparece o erro que te falei entendeu? Eu sou novato não tenho idéia se está correto dessa maneira ou não, pelo menos fiz da maneira que me instruiram entende? Quanto a parte: var Form1: TForm1; implementation {$R *.dfm} você adicionou alguma coisa?

Pessoal bom dia!!! Sou novato em Delphi estou fazendo o Curso pelo IPED e no primeiro exercício tive problemas com a mensagem Cannot find implementation of method btn2Click. O que foi feito: foi criado dois Buttons um chamado ON e outro OFF --> ON=btn1 e OFF=btn2. Fui em Object Inspector dei clique duplo na aba Onclick e abriu minha UTeste.pas para eu incluir os seguintes comandos: procedure TForm1.btn1Click(Sender: TObject); begin if btn1.Enabled = true then begin btn1.Enabled :=false; btn2.Enabled :=true; btn1.Caption :='OFF'; btnc.Caption :='ON'; end; end. Foi pedido para que eu fizesse o mesmo procedimento com o btn2. Quando fui em Object Inspector e cliquei duas vezes em Onclick surgiu o erro: Cannot find implementation of method btn2Click. Não sei o que fazer. O que pode estar errado. Obrigado por enquanto e conto com a ajuda de vocês.