Ir para conteúdo
Fórum Script Brasil

Douglas Soares

Veteranos
  • Total de itens

    864
  • Registro em

  • Última visita

Tudo que Douglas Soares postou

  1. Veja como minha aplicação é inicializada junto com o formulário de login. program senhas; uses Forms, ........................................................................ cadClientes in 'cadClientes.pas' {frmCadClientes}, vercontrato in 'vercontrato.pas' {frmVerContrato}, atualizalicencas in 'atualizalicencas.pas' {frmAtualizaLicencas}; {$R *.RES} begin Application.Initialize; frmTabelas := TfrmTabelas.Create(Application); frmTabelas.ShowModal; frmTabelas.Free; Application.Title := 'Sistema Gerenciador de Senhas'; Application.CreateForm(TdtmPrincipal, dtmPrincipal); Application.CreateForm(TfrmPrincipal, frmPrincipal); Application.CreateForm(TFrmLogin, FrmLogin); Application.CreateForm(TfrmAtualizaLicencas, frmAtualizaLicencas); frmPrincipal.Show; FrmLogin.ShowModal; Application.Run; end. Primeiramente dou um show no formulário principal, e em seguida dou showmodal no formuário de login! Não é isso que você está querendo fazer???
  2. JOGO 01: URUGUAI JOGO 02: FRANCA JOGO 03: COREIA DO SUL JOGO 04: ARGENTINA JOGO 05: INGLATERRA JOGO 06: EUA JOGO 07: ALEMANHA JOGO 08: AUSTRALIA JOGO 09: JAPAO JOGO 10: HOLANDA JOGO 11: ITALIA JOGO 12: PARAGUAI JOGO 13: BRASIL JOGO 14: COSTA DO MARFIM JOGO 15: ESPANHA JOGO 16: SUICA
  3. JOGO 01: AFRICA DO SUL JOGO 02: FRANCA JOGO 03: GRECIA x NIGERIA JOGO 04: ARGENTINA JOGO 05: EUA JOGO 06: INGLATERRA JOGO 07: ALEMANHA JOGO 08: AUSTRALIA JOGO 09: HOLANDA JOGO 10: CAMAROES JOGO 11: PARAGUAI JOGO 12: ITALIA JOGO 13: BRASIL JOGO 14: PORTUGAL JOGO 15: CHILE JOGO 16: ESPANHA
  4. JOGO 01: AFRICA DO SUL x MEXICO JOGO 02: FRANCA JOGO 03: ARGENTINA JOGO 04: COREIA DO SUL JOGO 05: INGLATERRA JOGO 06: ESLOVENIA JOGO 07: ALEMANHA JOGO 08: GANA JOGO 09: HOLANDA x DINAMARCA JOGO 10: CAMAROES JOGO 11: ITALIA JOGO 12: NOVA ZELANDIA x ESLOVAQUIA JOGO 13: PORTUGAL JOGO 14: BRASIL JOGO 15: CHILE JOGO 16: ESPANHA
  5. Faça o Inverso: FrmPrincipal.Show; Frm1.ShowModal; Abraços
  6. Dá uma olhada nesses links: http://www.webcheats.com.br/forum/delphi-v...t-servidor.html http://forum.codecall.net/pascal-delphi/34...er-program.html http://thiago.oxente.org/2006/08/16/delphi_chat Abraços
  7. Olá, fiquei a manhã inteira quebrando a cabeça com isso, estava dando errado, no fim descobri que era uma coisa estúpida que eu estava fazendo errado! Que seja... segue aí o executável com a fonte inclusa pra você dar uma olhada! http://www.4shared.com/file/vp-s2AwP/pegadias.html Abraços
  8. Faça assim: var a, b : integer; begin a := length(edt_endereco.Text); b := pos(',', edt_endereco.Text); edt_numero.Text := Trim(copy(edt_endereco.Text, b + 1, a - b)); end; Abraços
  9. Você deve ter se esquecido de abrir o seu dataset!
  10. Bom dia! Essa função é pra todos aqueles que tem um statusbar todo desorganizado ou que o ajusta manualmente toda vez que sua aplicação inicia! CODE procedure AjustaStatusBar(StatusBar: TStatusBar); const BORDA = 10; var temp, i: Integer; lmax: array [0..4] of Integer; begin with StatusBar do begin Canvas.Font := Font; for i := 0 to Panels.Count - 1 do lmax := Canvas.TextWidth(Panels.Text) + BORDA; for i := 0 to Panels.Count - 1 do if lmax > 0 then Panels.Width := lmax; end; end; Para usar: AjustaStatusBar(StatusBar1); Espero que seja útil! Abraços
  11. Tenho um sistema, no windows vista/7 starter eu sofro pra fazer ele funcionar... no basic é ainda pior!!! o problema geralmente é com o banco de dados ou com a propria aplicação que está sem permissões! tente desativar o UAC do sistema e talvez seu programa funcionará... vá no painel de controle e entre em contas de usuários, depois clique em Alterar configurações de Controle de conta de usuário... desative se tiver opção, ou se for uma barrinha, leve ela até embaixo e depois clique ok e reinicie o computador! Se não achar essa opção me avise que te mando um bat que desativa isso automaticamente! Abraços
  12. Dê uma olhada no KingHost, tem planos ótimos e eu utilizo! faço varios acessos ao banco mysql na web e sem problemas! se for adquirir algo de lá, não se esqueça desse link: http://www.kinghost.com.br/promo/MUFTZZR9HGAYQH.html ou desse código promocional: MUFTZZR9HGAYQH, que vai te dar 10% de desconto por 3 meses! Abraços
  13. Tente roda o programa em modo de compatibilidade, vá nas propriedades do executavel e marque para executar em modo de compatibilidade do windows xp sp3... teste... se não funcionar, desmarque a compatibilidade e então marque a caixinha e aplique... então tente clicar o botão direito no executavel e clique em Executar como administrador! Abraços
  14. Dê uma olhada nesse link: http://www.webcheats.com.br/forum/delphi-v...-com-mysql.html e também tem esse video: http://br.video.yahoo.com/watch/3090184/8798065 Abraços
  15. Explique melhor... seu sistema tem banco de dados? qual o windows vista que ele funciona, (versão, starter, ultimate....)... e qual ele não funciona?
  16. JOGO 01: ATLETICO-PR x BOTAFOGO-RJ JOGO 02: FLUMINENSE-RJ JOGO 03: GREMIO PRUDENTE-SP JOGO 04: CEARA-CE x AVAI-SC JOGO 05: FLAMENGO-RJ JOGO 06: são PAULO-SP JOGO 07: SANTOS-SP JOGO 08: GREMIO-RS JOGO 09: VASCO-RJ JOGO 10: CORINTHIANS-SP
  17. JOGO 01: FLAMENGO-RJ JOGO 02: PALMEIRAS-SP JOGO 03: AVAI-SC JOGO 04: CORINTHIANS-SP JOGO 05: são PAULO-SP JOGO 06: FLUMINENSE-RJ JOGO 07: INTERNACIONAL-RS x ATLETICO-PR JOGO 08: CRUZEIRO-MG JOGO 09: ATLETICO-GO x GOIAS-GO JOGO 10: BOTAFOGO-RJ x VASCO-RJ
  18. JOGO 01: ATLETICO-MG JOGO 02: AVAI-SC JOGO 03: FLUMINENSE-RJ JOGO 04: SÃO PAULO-SP JOGO 05: CORINTHIANS-SP JOGO 06: CRUZEIRO-MG JOGO 07: SANTOS-SP JOGO 08: INTERNACIONAL-RS JOGO 09: ATLETICO-PR JOGO 10: GOIAS-GO x CEARA-CE
  19. já joguei mu e sei o que você está passando... não sei se posso te ajudar... vou tentar mas não garanto nada, se eu conseguir alguma coisa eu posto aqui pra vc! Abraços
  20. Olá Guilherme! Assim que inserir um novo registro, você pode fechar/abrir o clientdataset em tempo de execução: ClientDataSet1.Close; ClientDataSet1.Open; ou então tentar atualiza-lo: ClientDataSet1.Refresh; Abraços!
  21. Que bom que resolvi seu problema! não sou só eu que respondo as coisas por aqui... o negócio é assim... se um usuário começa a responder um tópico, geralmente ninguém entra no meio, a não ser que haja algum problema na resposta... nem todos aqui tem tempo pra responder, ou seja, o primeiro a entrar geralmente é o primeiro a colocar todas as respostas do dia ou do periodo... P.S: ninguém ganha nada! tudo que fazemos é pelo fórum! Abraços
  22. JOGO 01: SANTOS-SP JOGO 02: GREMIO-RS JOGO 03: BOTAFOGO-RJ JOGO 04: CORINTHIANS-SP JOGO 05: ATLETICO-MG JOGO 06: SÃO PAULO-SP JOGO 07: EMPATE JOGO 08: VASCO-RJ JOGO 09: EMPATE JOGO 10: CRUZEIRO-MG
  23. Qual o nome do jogo?, se ele tiver um anti-hack não irá funcionar mesmo... e aqui não é permitido a criação de hacks, ou seja, se for essa a intenção o tópico será fechado!
  24. Tente ativar a janela antes de enviar o comando, altere seu código: AppActivate('notepad.exe'); keybd_event(VK_RETURN, 0, 0, 0); SendKeys('/reset', True ); keybd_event(VK_RETURN, 0, 0, 0); Abra o bloco de notas, e deixe minimizado... você verá que ele vai restaura-lo e então executar os comandos. Abraços
  25. Veja esses links: http://www.planetadelphi.com.br/dica/7280/...e-visual---ssl- http://www.devmedia.com.br/post-1195-Envio...lphi-Win32.html http://www.forumweb.com.br/foruns/index.ph...xado-resolvido/ Abraços
×
×
  • Criar Novo...