Ir para conteúdo
Fórum Script Brasil

Tenente Leite

Membros
  • Total de itens

    39
  • Registro em

  • Última visita

Sobre Tenente Leite

  • Data de Nascimento 31/03/1982

Contatos

  • Website URL
    http://www.ciadacomputacao.kit.net
  • ICQ
    0

Tenente Leite's Achievements

0

Reputação

  1. Ai, fui desenvolver um exemplo simples no Flash 5, com um movie clip em uma camada, e dois botões em outra camada, ligar e desligar, só que tem um probleminha o botão desligar não funciona e o som começa a tocar antes deu clicar no botão ligar. Taí o action dos botões: // Botão Ligar on (release) { tellTarget (som) { gotoAndPlay (1); } } //Botão Desligar on (press) { tellTarget (som) { gotoAndStop (1); } } O que eu estou fazendo de errado???? Valeu!!!
  2. Criar, eu criei, mas não me pergunte porque, eles somem assim que eu compilo o projeto! Mas eu já consegui fazer, ficou massa! Usei o Locate!!!! Brigadão pela força!
  3. Estou desenvolvendo um pequeno projeto no Delphi 6 e não estou conseguindo fazer um formulário de pesquisa. Tenho que pesquisar por Nome, Alcunha e Identidade, Só consegui fazer funcionar por Identidade, e mesmo assim a linha com o registro não está recebendo foco, ou seja, ficando colorida, e a pesquisa por alcunha ou nome, não está funcionando. Não consegui desenvolver código algum, dei uma pesquisada na net mas o código travou. CÓDIGO ===================================================== unit UPesquisa; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, StdCtrls, Buttons, Mask, DB, ExtCtrls; type TFrmPesquisa = class(TForm) DBGrid1: TDBGrid; BitBtn1: TBitBtn; EditChave: TMaskEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; RaGr: TRadioGroup; procedure BitBtn1Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); procedure EditChaveChange(Sender: TObject); procedure RaGrClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var FrmPesquisa: TFrmPesquisa; implementation uses UDM, Ufuncprd, UPesquisaSql; {$R *.dfm} procedure TFrmPesquisa.BitBtn1Click(Sender: TObject); begin prdRetornaValor(inttostr(Dm.TblCadastroRG.Asinteger),false); EditChave.Text:=''; FrmPesquisa.Close; end; procedure TFrmPesquisa.FormClose(Sender: TObject; var Action: TCloseAction); begin DM.TblCadastro.Close; end; procedure TFrmPesquisa.FormShow(Sender: TObject); begin DM.TblCadastro.Open; DM.TblCadastro.refresh; EditChave.EditMask:=''; EditChave.SetFocus; Editchave.selectall; end; procedure TFrmPesquisa.EditChaveChange(Sender: TObject); begin if RaGr.ItemIndex = 2 then begin if editChave.Text <> '' then DM.TblCadastro.findNearest([(editChave.Text)]); end else begin DM.TblCadastro.findNearest([editChave.Text]); end; end; procedure TFrmPesquisa.RaGrClick(Sender: TObject); begin if RaGr.ItemIndex = 0 then begin Label3.Caption := 'O NOME:'; DM.TblCadastro.IndexFieldNames := 'Nome'; DM.TblCadastro.FindNearest([EditChave.Text]); editChave.SetFocus; end else if RaGr.ItemIndex = 1 then begin Label3.Caption := 'A ALCUNHA:'; DM.TblCadastro.IndexFieldNames := 'Alcunha'; DM.TblCadastro.FindNearest([EditChave.Text]); editChave.SetFocus; end else begin Label3.Caption := 'A IDENTIDADE:'; DM.TblCadastro.IndexName :=''; EditChave.Text:=inttostr(Dm.TblCadastroRG.Asinteger); editChave.EditMask:=''; editChave.SetFocus; end; end; end. ==================================================== Obrigado
  4. Tenente Leite

    Provedores Gratuitos ...

    Cara, eu também estou na caça de um provedor, só que o meu caso é um pouco diferente, pode ser um vagabundo mesmo, mas tem que ser gratuito e ter suporte ao FormMail do Flash MX 2004, se souber de algum e puder me mandar, fico muito grato!!!!
  5. É o FormMail do Flash MX. Mas você sabe de algum servidor totalmente gratuito que tenhamos aqui? Muito Obrigado!
  6. Alguém sabe de algum servidor gratuito que suporte o Formmail? Obrigado!
  7. Começa aprendendo algumas funções da bibioteca windows.h, ok! Referência: Schild, C Completo e Total valeu
  8. Me parece table body*, e você ainda confirmou porque falou que tinha um table logo após, agora resta saber se a versão do html vai compilar, porque isso não é XML, para podermos criar tags não é mesmo? * Então pode se definir a formatação da sua table ok?
  9. Aí cara, tenta www.cursosvirtuais.com.br é pago, mas vale a pena. Cá pra nós, ANALISTA DE SISTEMAS PEGOU NÉ, TU NEM SAIU DAS FRAUDAS AINDA........
  10. Tenente Leite

    Iniciante

    No seu códio CPP você faz uma referência a um arquivo . h, ou seja, a sua biblioteca, então sem o código deste arquivo naõ dá pra te falar nada.
  11. Tenente Leite

    Iniciante

    Pô cara sem o ponto H, não dá pra te dizer!!!!
  12. Tenente Leite

    Ajuda!

    Se você quiser eu faço o trabalho, obviamente eu vou cobrar um patrocínio, se tiver interesse me escreve : ten.leite@bol.com.br; :unsure: ^_^ :huh: :D
  13. Preciso gerar um contador de segundos ou milisegundos. Tipo t2-t1 e armazenar o resultado em tf. se alguém puder me ajudar........
  14. Tenente Leite

    Limpar A Tela

    Simples, o dev não reconhece o comando clrscr(); :lol: :lol: :lol: você tem que usar system("cls"); :P :P :P :P Valeu!!!!!!!!!!!!!!!!!!!!!! :angry:
  15. Tenente Leite

    Problemas Com String

    :P :P :lol: :P :P :P :lol: :P
×
×
  • Criar Novo...