deio

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]

vlw aí, testei e funcionou XD

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.....

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....

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);

alguém sabe como? -_-

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

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 ¬¬'

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 ¬¬' )...

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".

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;

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....

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?

agora de cabeça não lembro de nada do meu projeto que precise disso, ou pelo menos por enquanto XD

quanto mais específico você for, mais precisa será a sua resposta ;)

seu programa está com um errinho, vo escreve algo, manda ele para, apaga o que você escreveu,escreve outra coisa e manda ele inverter, a palavrinha que fica se mexendo aparece o invertido do que você escreveu antes com o invertido que você escreveu agora pouco. Ex: 1ª vez que escreve : asdf invertido : fdsa aparece a palavra se movendo "fdsa" apaga o "asdf" 2º vez que escreve : qwer invertido : rewq aparece a palavra se movendo "fdsarewq" da uma olhada aí XD p.s : o projeto é seu e não sei o que pretendes fazer com ele, mas eu faria uma procedure para que toda vez que o você escreveu mude, o edit.text do "invertido" se apague, ouse seja edit.text := '';

isso mesmo XD vlw aí, isso vai me economizar bastante tempo, linhas de código e o programa vai ficar mais rapidinho XD

acho que eu não perguntei direito, o componente não existe até que você execute tal função dentro do programa, e se você tentar declará-lo o delphi irá te dizer que ele não existe. Ex: executa o programa clica no button1 o programa cria um button3 clica no button2 e exclui o button3 (esse button3 é criado enquanto você executa o programa, que antes de você executá-lo o componente não existia) espero ter deixado minha dúvida um pouco mais clara :lol:

vlw, já ajudou bastante, agora que eu consegui o código para criar, estou tentando fazer o codigo para fechar a aba selecionada, o problema é que a nova aba é criada em tempo de execução e não sei como me referir a este novo componente criado...

como eu coloco na condição de um código uma ordem para ele executar outra procedure. Ex: execute procedure button1click se (condição) então execute procedure abrir1click (...)

falta de conhecimento sobre a existência dos mesmos XD sendo assim, como seria o mesmo código para esse componente citado?

oi, gostaria de saber qual seria o comando para quando clicar em um botão criasse um novo page dentro do tabbednotebook, e dentro desse novo page criasse um DBGrid

não tem outro seja freeware?

aew, consegui arrumar qse todos os erros, falta só a minha 1ª dúvida XD

quando você clica a rodinha do mouse, o cursor muda para um circulo com uma seta para cima e outra para abaixo, como eu habilito essa função no delphi?