Jhonas
-
Total de itens
9.657 -
Registro em
Tudo que Jhonas postou
-
Ok... acho meio sem sentido, mas voce pode fazer isso procedure TForm1.ComboBox1Click(Sender: TObject); begin ComboBox1.Items.Strings[ComboBox1.ItemIndex] := ''; end; abraço
-
(Resolvido) Edição de Relatório com o FastReport
pergunta respondeu ao guga123 de Jhonas em Delphi, Kylix
qual o erro ? qual a versão do seu FastReport5 ? dependendo da versão pode ser bug OBS: voce pode testar se é bug... crie um relatório com somente um campo editável abra o editor em modo de execução e tente digitar se ocorrer erro logo de cara é bug da versão. se não ocorrer erro, então o erro esta no layout do seu relatório abraço -
(Resolvido) Edição de Relatório com o FastReport
pergunta respondeu ao guga123 de Jhonas em Delphi, Kylix
esse problema ocorre em tempo de desenvolvimento ou quando voce roda o programa e tenta usar o frpLayout.DesignReportInPanel(pnlLayout) ??? -
não pode, porque , se voce der um clique para escolher outro item, ele vai ficar vazio todas as vezes... tem que ser no evento OnDbClick. abraço
-
Isso é muito simples: quando voce criar a lista do combobox, deixe o primeiro item em branco ( vazio ) no evento OnDbClick voce coloca procedure TForm1.ComboBox1DblClick(Sender: TObject); begin ComboBox1.ItemIndex := 0; end; então quando voce der um click duplo com o mouse no item que estiver aparecendo, ele ficara vazio ( na realidade ele apontara para o primeiro item da lista que é vazio ) abraço
-
não tenho certeza, mas quem o programou, queria colocar proteção contra robos de qualquer forma, tente esses links : ensina como simular a tecla enter em programas externos https://www.google.com.br/search?q=simular+pressionamento+de+tecla+em+programa+externo+delphi&o que=simular+pressionamento+de+tecla+em+programa+externo+delphi&gs_l=psy-ab.3...17691.23410.0.23838.26.24.0.0.0.0.262.2642.0j15j3.18.0.foo%2Cnso-ehuqi%3D1%2Cnso-ehuui%3D1%2Cewh%3D0%2Cnso-mplt%3D2%2Cnso-enksa%3D0%2Cnso-enfk%3D1%2Cnso-usnt%3D1%2Cnso-qnt-npqp%3D0-1701%2Cnso-qnt-npdq%3D0-54%2Cnso-qnt-npt%3D0-1%2Cnso-qnt-ndc%3D300%2Ccspa-dspm-nm-mnp%3D0-05%2Ccspa-dspm-nm-mxp%3D0-125%2Cnso-unt-npqp%3D0-17%2Cnso-unt-npdq%3D0-54%2Cnso-unt-npt%3D0-0602%2Cnso-unt-ndc%3D300%2Ccspa-uipm-nm-mnp%3D0-007525%2Ccspa-uipm-nm-mxp%3D0-052675...0...1.1.64.psy-ab..12.2.235...0i13k1.M6theQk2yvo abraço.
-
faça um teste simples: use um componente TQuery ou outro ( conforme o seu banco de dados ) e use uma select para trazer apenas 100 registros da tabela exemplo : select * from tabela limit 100; link com um um dbgrid e veja o resultado ... depois link com um wwdatagrid e veja o resultado e informe. acho que esse link, vai exemplificar muito bem o que estou tentando lhe mostrar http://www.devmedia.com.br/curso-de-dbexpress-e-datasnap-parte-xv/18764 abraço
-
para que voce consiga simular o pressionamento de uma tecla pelo programa, o foco ( cursor ) deve estar na janela que voce quer fazer isso.... caso contrário não acontece nada mesmo. abraço
-
se o wwdatagrid é do firemonkey então voce deve trocar a versão para o delphi berlin 10.2 https://cc.embarcadero.com/reg/rad_studio https://cc.embarcadero.com/reg/delphi abraço
-
experimente com esse exemplo: http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/DBClient_TClientDataSet_PacketRecords.html abraço
-
já tentei simular a teclar enter e não adianta pois o programa fica travado até apertar o OK manualmente. essa tela aparece dentro do webbrowser ? quando voce tentar emular o pressionamento de tecla, o que acontece ?
-
veja se é algo parecido com isso: ou tente esses links https://www.google.com.br/search?source=hp&q=clicar+botão+em+pagina+delphi&o que=clicar+botão+em+pagina+delphi&gs_l=psy-ab.3..33i22i29i30k1.2030.30089.0.31548.29.29.0.0.0.0.201.2616.0j19j1.20.0.foo%2Cnso-ehuqi%3D1%2Cnso-ehuui%3D1%2Cewh%3D0%2Cnso-mplt%3D2%2Cnso-enksa%3D0%2Cnso-enfk%3D1%2Cnso-usnt%3D1%2Cnso-qnt-npqp%3D0-1701%2Cnso-qnt-npdq%3D0-54%2Cnso-qnt-npt%3D0-1%2Cnso-qnt-ndc%3D300%2Ccspa-dspm-nm-mnp%3D0-05%2Ccspa-dspm-nm-mxp%3D0-125%2Cnso-unt-npqp%3D0-17%2Cnso-unt-npdq%3D0-54%2Cnso-unt-npt%3D0-0602%2Cnso-unt-ndc%3D300%2Ccspa-uipm-nm-mnp%3D0-007525%2Ccspa-uipm-nm-mxp%3D0-052675...0...1.1.64.psy-ab..9.16.2133...0j0i131k1j0i22i30k1.YvZi9Uo4jXk abraço
-
delphi (Resolvido) Como setar outra impressora em runtime?
pergunta respondeu ao junior103 de Jhonas em Delphi, Kylix
então tente outra abordagem use o comando Winexec para mudar a impressora via windows RUNDLL32 PRINTUI.DLL,PrintUIEntry /y /n "NOME_IMPRESSORA" abraço -
delphi (Resolvido) Como setar outra impressora em runtime?
pergunta respondeu ao junior103 de Jhonas em Delphi, Kylix
voce leu a nota ? As a note: I'd remove the VCL prefix from your references; it means your code won't be available across platforms. If you just make sure that Printers is in your uses clause, you can use just Printers.Printer, and changing the target platform (VCL Win32/64, FMX 32/64, OSX) will adjust the uses clause for you based on the build configuration. ou então veja no site da Embarcadero http://docwiki.embarcadero.com/Libraries/Berlin/en/FMX.Printer.Win.TPrinterWin.SetDefaultPrinter abraço -
delphi (Resolvido) Como setar outra impressora em runtime?
pergunta respondeu ao junior103 de Jhonas em Delphi, Kylix
veja se esse link esclarece a sua dúvida https://stackoverflow.com/questions/20277061/print-to-a-non-default-printer-in-delphi abraço -
delphi (Resolvido) Como setar outra impressora em runtime?
pergunta respondeu ao junior103 de Jhonas em Delphi, Kylix
alguns exemplos na net https://www.google.com.br/search?site=&source=hp&q=frxPrinters.PrinterIndex+%3A%3D&o que=frxPrinters.PrinterIndex+%3A%3D&gs_l=psy-ab.3...1941.1941.0.2430.1.1.0.0.0.0.243.243.2-1.1.0.foo%2Cnso-ehuqi%3D1%2Cnso-ehuui%3D1%2Cewh%3D0%2Cnso-mplt%3D2%2Cnso-enksa%3D0%2Cnso-enfk%3D1%2Cnso-usnt%3D1%2Cnso-qnt-npqp%3D0-1701%2Cnso-qnt-npdq%3D0-54%2Cnso-qnt-npt%3D0-1%2Cnso-qnt-ndc%3D300%2Ccspa-dspm-nm-mnp%3D0-05%2Ccspa-dspm-nm-mxp%3D0-125%2Cnso-unt-npqp%3D0-17%2Cnso-unt-npdq%3D0-54%2Cnso-unt-npt%3D0-0602%2Cnso-unt-ndc%3D300%2Ccspa-uipm-nm-mnp%3D0-007525%2Ccspa-uipm-nm-mxp%3D0-052675...0...1.1.64.psy-ab..0.0.0.Ll_cD39zAs4 abraço -
delphi (Resolvido) Como setar outra impressora em runtime?
pergunta respondeu ao junior103 de Jhonas em Delphi, Kylix
exemplo: http://www.activedelphi.com.br/forum/viewtopic.php?t=93909&sid=b3632f20e7de03c763bc0a3f0fa6cd50 abraço -
exemplos: http://www.devmedia.com.br/forum/como-criar-treeview-baseado-em-banco-de-dados/403508 ou https://www.google.com.br/search?site=&source=hp&q=treeview+banco+de+dados+delphi&o que=treeview+ban&gs_l=psy-ab.1.0.0i22i30k1l4.2112.7253.0.10399.12.12.0.0.0.0.133.1312.0j11.11.0.foo%2Cnso-ehuqi%3D1%2Cnso-ehuui%3D1%2Cewh%3D0%2Cnso-mplt%3D2%2Cnso-enksa%3D0%2Cnso-enfk%3D1%2Cnso-usnt%3D1%2Cnso-qnt-npqp%3D0-1701%2Cnso-qnt-npdq%3D0-54%2Cnso-qnt-npt%3D0-1%2Cnso-qnt-ndc%3D300%2Ccspa-dspm-nm-mnp%3D0-05%2Ccspa-dspm-nm-mxp%3D0-125%2Cnso-unt-npqp%3D0-17%2Cnso-unt-npdq%3D0-54%2Cnso-unt-npt%3D0-0602%2Cnso-unt-ndc%3D300%2Ccspa-uipm-nm-mnp%3D0-007525%2Ccspa-uipm-nm-mxp%3D0-052675...0...1.1.64.psy-ab..1.11.1305...0j0i131k1j0i10k1j0i19k1.DFKSaFm8puU abraço
-
veja esse exemplo: abraço
-
o pc trava porque voce esta tentando gerar um numero absurdo de interações ( só no segundo For voce já tera mais de 34 milhoes de combinações ) voce esta usando a abordagem incorreta para fazer isso veja exemplos na net https://www.google.com.br/search?site=&source=hp&q=gerador+de+palavras+python&o que=gerador+de+palavras+py&gs_l=psy-ab.1.0.33i22i29i30k1.1711.8336.0.9739.26.25.1.0.0.0.278.2769.0j19j2.21.0.foo%2Cnso-ehuqi%3D1%2Cnso-ehuui%3D1%2Cewh%3D0%2Cnso-mplt%3D2%2Cnso-enksa%3D0%2Cnso-enfk%3D1%2Cnso-usnt%3D1%2Cnso-qnt-npqp%3D0-1701%2Cnso-qnt-npdq%3D0-54%2Cnso-qnt-npt%3D0-1%2Cnso-qnt-ndc%3D300%2Ccspa-dspm-nm-mnp%3D0-05%2Ccspa-dspm-nm-mxp%3D0-125%2Cnso-unt-npqp%3D0-17%2Cnso-unt-npdq%3D0-54%2Cnso-unt-npt%3D0-0602%2Cnso-unt-ndc%3D300%2Ccspa-uipm-nm-mnp%3D0-007525%2Ccspa-uipm-nm-mxp%3D0-052675...0...1.1.64.psy-ab..4.22.2769...0j0i131k1.CAxbZ0jiIwk abraço
-
Veja se não é arquivo de Dumping que está sendo gerado ... verifique o tamanho do arquivo ( 1.048.57...) veja se mantem o mesmo numero ou está alterando. Uma vez por dia o SGBD PostgreSQL irá gerar um Dump da base de dados, através de uma tarefa agendada na Crontab. O dump gerado será armazenado em um diretório na mesma máquina do SGBD (não é uma boa prática deixar na mesma máquina) e uma cópia do mesmo será enviado para o servidor de arquivos Windows. abraço
-
Piramide "inversa", não consigo deixar que nem na imagem
pergunta respondeu ao Bruna Williams de Jhonas em C, C++
exemplo: https://www.taringa.net/posts/info/19173160/Como-crear-una-piramide-de-asteriscos-invertida-Dev-C.html abraço -
o que voce tem dentro do memo é isso <script type="text/javascript"> function tocamidi(d){ console.log('Midi'+d); } function ouviraudio(d){ console.log('OUVIRAUDIO'+d); } function muteaudio(){ console.log('MUTEAUDIO'); } function curtirmidi(d){ console.log('CURTIRMIDI'+d); } function paramidi(d){ console.log('PARAMidi'+d); } function uolk(avatar) e o que isso quer dizer ? que alguma rotina dentro do programa vai ler essas linhas do memo e depois utiliza-las em algum outro lugar. esses comandos dentro de um memo não tem função alguma, é somente texto que foi adicionado ao memo abraço
-
não entendi ... voce quer fazer a programação em delphi ? o painel de led vem com um editor para voce fazer a programação Editor Spider Você recebeu um CD-ROM contendo os programas necessários para a instalação do Editor Spider em seu computador.
-
(Resolvido) Pesquisa com Edit e DBLookupCombobox
pergunta respondeu ao renanbg de Jhonas em Delphi, Kylix
O componente DBLookupComboBox é utilizado para selecionar registros de uma tabela e gravar em outra tabela. As propriedades necessárias para a utilização são: DataSource - Ligar o DataSource da Tabela ao qual vai receber o valor do registro selecionado; DataField - Ligar o campo de ligação entre as duas tabelas, ao qual vai receber o valor do registro selecionado; ListSource - Ligar a DataSource da Tabela ao qual vai ter o registro selecionado; ListField - Ligar o campo que será listado quando o usuário abrir a janela para seleção do registro; KeyField - Ligar o campo de ligação entre as duas tabelas, ao qual terá o seu valor enviado para gravação. O campo de ligação entre as duas tabelas pode ser um campo código ou id, pois é este campo que manterá os valores iguais entre as duas tabelas. obs: o campo código ou id não podem ter valores iguais na mesma tabela e sim em tabelas diferentes entretando a pesquisa pode ser feita atraves de um select, o qual vai apontar para o registro especifico que vai ser refletido no DBLookupComboBox abraço