Ir para conteúdo
Fórum Script Brasil

deio

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    54

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por deio

  1. Problema No Comando

    em Delphi, Kylix

    Postado

    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]

  4. Excel No Delphi...

    em Delphi, Kylix

    Postado

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

  5. Dúvida Com Código...

    em Delphi, Kylix

    Postado · Editado por deio

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

  8. Dúvida Com Código...

    em Delphi, Kylix

    Postado · Editado por deio

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

  9. [resolvido] Efeito "marquee" No Delphi

    em Delphi, Kylix

    Postado

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

  10. Dúvida Com Código...

    em Delphi, Kylix

    Postado

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

  11. Comando Para Criar Componentes

    em Delphi, Kylix

    Postado · Editado por deio

    micheus, está dando erro quando eu tento criar mais de um tabsheet, ele diz que já existe um DbGrid com esse nome...

    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

    :

    (...)
procedure Form1.Button2Click(Sender :TObject);
var
  Componente :TComponent;
begin
  Componente := FindComponent('Button3');
  if Assigned(Componente) then
    Componente.Free;
end;
    var
  Componente :TComponent;
begin
  Componente := PageControl.ActivePage;
  PageControl.RemoveComponent(Componente);  // remove-o da lista de componentes interna do Owner
  Componente.Free;
end;
    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;

  13. Comando Para Criar Componentes

    em Delphi, Kylix

    Postado · Editado por deio

    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?

  16. [resolvido] Efeito "marquee" No Delphi

    em Delphi, Kylix

    Postado · Editado por deio

    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 := '';

  18. Comando Para Criar Componentes

    em Delphi, Kylix

    Postado

    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:

×
×
  • Criar Novo...