Ir para conteúdo
Fórum Script Brasil

deio

Membros
  • Total de itens

    54
  • Registro em

  • Última visita

Sobre deio

deio's Achievements

0

Reputação

  1. estava eu testando meu programa e após ter feito algumas modificações, esse comando parou de funcionar no dbgrid : private procedure OnMessageOwn(var Msg: TMsg; var Handled: Boolean); (...) procedure TForm1.OnMessageOwn(var Msg: TMsg; var Handled: Boolean) ; var i: SmallInt; begin if Msg.message = WM_MOUSEWHEEL then begin Msg.message := WM_KEYDOWN; Msg.lParam := 0; i := HiWord(Msg.wParam) ; if i > 0 then Msg.wParam := VK_UP else Msg.wParam := VK_DOWN; Handled := False; end; end;[/codebox]
  2. olá a todos, gostaria de saber se há algum código ou numero que indica ao computador qual tecla foi clicada. Ex : tecla enter = 13 tecla "a" = 14 tecla "A" = 14s.....
  3. gostaria de saber como abrir arquivos no delphi 7, é que estou fazendo um trabalho manual com excel que leva muito tempo, e pretendo fazer um programinha que abra dois arquivos excel e faça esse trabalho automaticamente.... resumindo o que eu estou fazendo manualmente : 1º) compara os valores de uma coluna de um arquivo com a coluna de outro arquivo; 2º) se os valores forem iguais, copia a linha onde se encontra esse valor repetido; 3º) no primeiro arquivo, na linha onde se encontra o valor repetido, seleciona a linha de baixo, adiciona uma linha, e cola o valor da linha copiada no 2º arquivo na 3ª coluna da linha onde se encontra o valor repetido no 1º arquivo....
  4. deio

    Dúvida Com Código...

    está dando erro, o programa disse que "nome_classe" não foi identificado... acho que um contador simples já deve resolver, pois o problema está no número que segue o nome "DbGrid", então (acho eu) que se fizer um contador simples, que toda vez que execute a função ele vá somando 1 ao resultado, é só na hora de colocar assim : name : 'DbGrid'+ inttostr(contador);
  5. olá a todos, eu fiz o download de um componente chamado WAB, que abre arquivos .wab só que não consigo/sei abrir arquivos .wab com ele, se alguém descobrir como, ficaria muito grato se postarem aqui
  6. deio

    Dúvida Com Código...

    hm... acho que expliquei meio torto... tenho um comando que cria tabsheets novos, e cada tabsheet tem um dbgrid, o problema é que o comando que cria o dbgrid está dentro do que cria tabsheets novos, como o pagecontrol (que é onde o tabsheet fica) tem um comando chamado pagecount, é facil da um novo nome pra cada tabsheet criado, é só colocar pagecount +1. no caso do dbgrid, eu precisaria ou criar um contador sendo que o primeiro valor dele seria 2, pois já teria um tabsheet inicial com um dbgrid1 dentro dele, e dar inttostr do resultado desse contador e colocar numa variável como 'DbGrid' + inttostr(variável). ou criar um comando que conte qntos dbgrid eu tenho e ao criar um nome aumentasse o valor ao lado do nome dgbrid (Ex : DbGrid3 vira DbGrid4)... acho que dessa vez eu tenha explicado direito ¬¬'
  7. 2 pnts O.o parece até meu professor de geografia do ano passado que dava uma "carinha feliz" que ajudava bastante na média XD dar os "espaços" gera uma sensação de treeview, então você identifica de onde se refere o comando que você está escrevendo, pois quando o comando tem várias linhas de código você pode se perder um pouco( já aconteceu várias vezes comigo ¬¬' )...
  8. com a ajuda do pessoal do fórum consegui um comando que cria tabsheets, e dgrids dentro do mesmo, só que agora eu preciso de um código que me diga o último DbGrid criado e adicione +1 no numero do seu nome, e coloque o resultado "DbGrid"+ (numero +1) em uma string. Ex: último dbgrid criado "DbGrid7", a variável recebe "DbGrid8".
  9. falto só essa parte... meu DbGrid principal está com o nome de DbGrid1 mesmo, acho que precisa fazer um contador, que para cada dbgrid criado, adicione +1 no numero dele. Ex : Dbgrid4, Dbgrid5.... consegui fazer o programa fechar a aba selecionada XD o que eu fiz foi misturar o dois e deu certo e fiz o seguinte : (aprendi a usar essa janelinha XD ) var Componente :TComponent; begin Componente := PageControl.ActivePage; if Assigned(Componente) then Componente.Free; end;
  10. olá a todos, preciso com urgência de um componente que me permita abrir e manipular arquivos .wab (windows address book) no delphi, de preferência freeware....
  11. agora foi XD micheus, está dando erro quando eu tento criar mais de um tabsheet, ele diz que já existe um DbGrid com esse nome... sabe aquele exemplo do tabsheet que tu escreveu neste tópico, como ficaria este exemplo pra fechar feito sobre aquele, ou seja, ao clicar num button, ele fecharia a nova aba. como ficaria para ao invés de fechar uma nova aba, ele fechasse a aba selecionada?
  12. agora de cabeça não lembro de nada do meu projeto que precise disso, ou pelo menos por enquanto XD
  13. deio

    Dúvida De Iniciante

    quanto mais específico você for, mais precisa será a sua resposta ;)
×
×
  • Criar Novo...