Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. Jhonas

    Delphi

    Veja nestes links http://jf.eti.br/livro-a-biblia-do-delphi/ http://www.activedelphi.com.br/modules.php...&file=index http://www.apostilando.com/download.php?co...ategoria=Delphi abraço
  2. Depois que criar os SpeedButton desative a a skin e ative novamente SkinData1.Active := false; SkinData1.Active := true; abraço
  3. Procurou mesmo ??? http://www.google.com.br/url?sa=t&sour...l46RzyJDnh_eA1Q abraço
  4. outra sugestão é desabilitar o leitor de cartão ( caso o seu micro o tenha ) abraço
  5. voce pode registrar cada componente em sua propria paleta .... aquele foi somente um exemplo de como colocar os componentes na paleta Internet ( siga o mesmo exemplo de como criar um componente e fazer o registro ) de qualquer forma a instalação automatica de componentes, necessita que voce gere um executavel para essa finalidade exemplo disso voce pode observar quando voce instala o infopower no delphi http://www.woll2woll.com/Downloads.html abraço
  6. Veja este link http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=693 abraço
  7. somente criando e destruindo em tempo de execução ... ou pode entar encontrar na net um componente com essa propriedade abraço
  8. Não tenho o esquema do monitor, mas procure verificar os capacitores de filtro da fonte de alimentação ... dessolde um dos terminais e teste com um capacimetro Manual desse monitor http://www.09.msk.ru/shemi/samsung/Samsung_PN15VT_PN15HT.pdf abraço
  9. habilite a placa On-Board pela bios e veja se resolve. abraço
  10. Faça um diagnostico de funcionamento .... veja o manual http://www.aboutprojectors.com/pdf/epson-p...e-s4-manual.pdf abraço
  11. Dica: https://www.scriptbrasil.com.br/forum/lofiv...php/t63282.html Uma outra maneira seria voce criar uma Unit, onde voce registra os seus componentes ao executar essa Unit exemplo: unit MComponentes; interface procedure Register; implementation uses Classes,//Extctrls,StdCtrls, {DesignIntf,} DesignEditors, NComp1, NComp2, NComp3, NComp4, NComp5; procedure Register; begin RegisterComponents(Cons_Palette_Inet, [TNComp1]); // colocar os componentes na paleta Internet do Delphi 7 RegisterComponents(Cons_Palette_Inet, [TNComp2]); RegisterComponents(Cons_Palette_Inet, [TNComp3]); RegisterComponents(Cons_Palette_Inet, [TNComp4]); RegisterComponents(Cons_Palette_Inet, [TNComp5]); end; end. OBS: NComp1, NComp2, NComp3, NComp4, NComp5; // são os seus componentes abraço
  12. o conteúdo que aparece no seu TDataModule varia em função dos componentes que voce inclui nele abraço
  13. Este código está dentro de um botão, mas voce pode usar um timer para testar de tempos em tempos a conexão procedure TForm1.Button1Click(Sender: TObject); begin try with IBDatabase1 do begin Connected := true; //showmessage('Banco de Dados Conectado' ); end; except on E:exception do begin IBDatabase1.Connected := false; showmessage('Falha ao conectar com o banco de dados. Erro = "'+E.message+'"' ); Application.Terminate; end; end; end; abraço
  14. Na propriedade Items do PopupMenu adicione um item < Sair > e não coloque nenhum código para este item O PopupMenu só é fechado quando voce escolhe um dos itens ... se voce tiver um item sem código, fechará o PopupMenu sem executar nada abraço
  15. neste caso voce deverá criar o PopupMenu em tempo de execuçao, para poder destruí-lo quando o cursor sair da área do PopupMenu. Caso contrário deverá criar um item dentro do PopupMenu para fecha-lo sem executar nada. Um exemplo http://forum.devmedia.com.br/viewtopic.php...c7f7cc8940fc988 abraço
  16. Basta somar o tamanho de todos os arquivos e jogar no valor maximo no gauge2 e depois usar um contador unico para ir incrementando a cada arquivo selecionado. abraço
  17. O componente SpeedButton tem uma propriedade chamada PopupMenu onde voce deverá linkar com um componente PopupMenu da paleta Standard e usando o botão direito do mouse voce faz a chamada ao PopupMenu. Entretanto se quiser chamar pelo evento ( MouseMove ) ao passar o cursor pelo SpeedButton faça assim: procedure TForm1.SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin PopupMenu1.Popup(SpeedButton1.top+380,SpeedButton1.left-20); end; abraço
  18. Vai achar a resposta neste link http://support.microsoft.com/kb/873235/pt-br abraço
  19. Veja este link http://www.devarticles.com/c/a/PHP/Buildin...h-PHP-NuSOAP/2/ abraço
  20. Veja este link http://scriptbrasil.com.br/forum/index.php...st&p=195184 abraço
  21. Sim ... basta fazer a referencia via código sql abraço
  22. Teste a sua placa de video em outro micro.... muito provavelmente o defeito esteja nela ENTENDA OS BIPS DA SUA BIOS http://forum.imasters.uol.com.br/index.php...e905bee165f967e abraço
  23. Veja este link http://www.tmssoftware.com/site/dbplanner.asp abraço
  24. Basta usar esse exemplo que voce consegue fazer o que esta querendo procedure TForm1.DateEdit1Change(Sender: TObject); var data : TDateTime; dia : array[1..7] of string; begin dia[1] := 'Domingo'; dia[2] := 'Segunda-feira'; dia[3] := 'Terça-feira'; dia[4] := 'Quarta-feira'; dia[5] := 'Quinta-feira'; dia[6] := 'Sexta-feira'; dia[7] := 'Sábado'; data := DateEdit1.Date; ShowMessage( 'Hoje é '+dia[ DayOfWeek( data ) ] ); end; abraço
×
×
  • Criar Novo...