Na maioria dos componentes Grids, de terceiros, você pode observar que o usuário pode mover colunas e linhas usando o mouse. Aliás, o usuário espera este comportamento de um Grid. Então, como fazer isso usando um TStringGrid?

      Como sempre, se é isso que você estava querendo implantar em seu aplicativo, mais uma vez “seus pobrêma se acabaram-se”,  apresentamos o incrível GridColumnRowMoveitor Tabajara.

      Mais uma vez… mão na massa e chega de enrolação.

      Primeiro de tudo, se você der uma olhada mais aprofundada no componente TCustomGrid você verá que os métodos MoveColumn e MoveRow estão lá, fazem parte do componente, mas eles estão ocultos no TStringGrid, eles são herdados do ancestral TCustomGrid porém não estão acessíveis no descendente, o motivo?? Ora, vai lá saber o que se passa na cabeça dos garotos da Codegear…

      Como resolver esse problema? Simples e fácil, sem maiores complicações, basta fazer uma herança de TStringGrid e redeclarar estes métodos como public.

type
    TNovoGrid = class(TStringGrid)
    public
    procedure MoveColumn(FromIndex, ToIndex: LongInt);
    procedure MoveRow(FromIndex, ToIndex: LongInt);
   end;

   Para implementar estes métodos é muito simples, basta na implementação, chamar o ancestral e passar para ele o comando:

procedure TNovoGrid.MoveColumn(FromIndex, ToIndex: LongInt);
begin
    inherited;
end;

procedure TNovoGrid.MoveRow(FromIndex, ToIndex: LongInt);
begin
    inherited;
end;

     Você não precisa registrar este componente na paleta de componentes. Use o TStringGrid ou qualquer descendente de TCustomGrid normalmente como já faz hoje, e quando você precisar usar estes métodos, simplesmente faça um typecast (conversão de tipos) para a nova classe, e pronto. Veja o exemplo abaixo:

procedure TForm1.Button1Click(Sender: TObject);
begin
       TNovoGrid(StringGrid1).MoveColumn(2, 5);
end;

    Bom, é isso aí, até a próxima.
    www.spectrus.com.br

Olá pessoal!
Está é minha terceira video-aula sobre delphi para o TechTips.

Nesta video aula, vocês poderão ver o quanto é util criar frames padronizados para cadastro e consulta de dados de uma tabela.
Dessa forma, a produtividade aumenta imensamente e é uma opção aos famosos geradores de sistemas que existem por aí.

Para ver a video-aula, clique aqui.

Ps: Qualquer semelhança com nomes é pura coincidência.

Temos um Windows Service feito em Delphi/win32 e hoje surgiu a necessidade dele acessar um WebService.
Importamos o wsdl, codificamos e na hora de executar… “access violation“. Bom, pode ser algo que fizemos de errado!
Refizemos o processo e mesmo erro! Vamos fazer um outro cliente pra testar. Fizemos em Delphi Application, PHP, c# e todos funcionaram.

Bom, pode ser algo de permissão do windows. Alteramos para rodar como administrador da máquina, e nada. Num teste a mais, apenas pra ninguém poder dizer que não foi testado, colocamos pra rodar como usuário do domínio e nada!

Então mais um pouco de pesquisa e encontramos a solução:

Faltava chamar a inicialização dos ActiveX (que provavelmente o Delphi usa por baixo pra chamar WebService). Assim sendo, colocamos no create do DataModule que fará o acesso ao WebService a seguinte linha: CoInitialize(nil);
e no Destroy: CoUnInitialize; Pra isso, tivemos que adicionar ActiveX no uses.

Com isso conseguimos resolver o nosso problema e espero que o de alguns de vocês também.

Meus agradecimentos especiais vão para: Leonel Togniolli, Andreano Lanusse e Jone Cunha que encontrou a solução. Valeu pessoal!

Um abraço e até a próxima!

Nesta video aula, vocês poderão ver o quanto é util uma hierarquia de frames que podem utilizar outros frames. Os frames criados na video-aula anterior foram reutilizados para mostrar mais uma vez como isso é prático.

Para ver a video-aula, clique aqui.

Ela explica a utilização de frames com interfaces.
Recomendo usar o fone de ouvido.

Para ver a video aula, clique aqui.

.

Olá Pessoal, estou aqui para falar de sobre frames.
Frame é como se fosse uma form instanciada como um componente panel.
O Help do delphi o chama de container, mas ele não é um mero container, se aplicado de forma corretamente.

Situação:
No seu sistema você tem um listbox aonde seu analista(um cara muito criativo) quer que o usuário possa incluir, alterar e excluir items.
É um listbox de filtro de likes. Ex: O usuário pode pesquisar por produtos que começam com ‘Abac’ e ‘Lim’.

Problema:
Não convém criar uma tabela pra isso devido aos milhares de combinações diferentes já que sempre vai ser por algo específico.
Seu analista não te disse, mas tem centenas de telas de relatório que vc vai ter que alterar para mesma coisa.
Muitos podem pensar “Crio os 3 botões ali naquela tela e depois só copio e colo nas outras telas!”, mas o problema de fazer isso é a redundância de código.
Muitos podem pensar “Vamos criar uma classe e passamos os botões na criação” Mesmo assim o código vai ter que ter redundância.
Muitos podem pensar “Vamos criar um componente pra isso.”. Quase lá! O problema disso é ter q instalar o componente em cada máquina e sempre ter que recompilá-lo a cada alteração até ele estar pronto.
A solução é simples: Frames!
Você deve ter exclamado: “Ok. Ok Léo Simas! Como frames vai ser melhor que tudo isso aí?”
Para solucionarmos esse problema, nada melhor que um exemplo prático!
Mãos à obra!

*Crie uma nova aplicação.
*Com a Form vazia mesmo, vá em File->New->Frame.
Vai aparecer algo meio estranho. Parece um painel, mas tem botões de form.
Isso é o nosso frame.
*Chame-o de FmAddLista.
*Deixe o Frame com width como 280 e Height como 35.
*No public do nosso Frame declare isso:

  public
    Lista : TListbox;
  end;

Não coloque um listbox na tela. O Objeto Lista vai ser apenas um referencial depois.
*Adicione 3 botões com os captions respectivos como “I”,”A”,”X”.
Vai ficar parecido com isso:

No primeiro botão vamos fazer ele incluir nesse objeto que chamamos Lista:

  procedure TFmAddLista.SpeedButton1Click(Sender: TObject);
  begin
    If not assigned(Lista) then exit;
    Lista.items.add(InputBox('Informe o items','Informe o item','item'));
  end;

No segundo botão vamos fazer ele alterar o item selecionado nesse objeto que chamamos Lista:

  procedure TFmAddLista.SpeedButton2Click(Sender: TObject);
  begin
    If not assigned(Lista) then exit;
    If Lista.itemindex < 0 then exit;
    Lista.items[Lista.itemindex] := InputBox('Informe o item',
                                             'Informe o item',
                                              Lista.items[Lista.itemindex]);
  end;

No terceiro botão vamos fazer ele excluir o item nesse objeto que chamamos Lista:

  procedure TFmAddLista.SpeedButton3Click(Sender: TObject);
  begin
    If not assigned(Lista) then exit;
    If Lista.itemindex < 0 then exit;
    Lista.items.delete(Lista.itemindex);
  end;

Se vc tentar compilar, vai compilar certinho. Mesmo não tendo um Listbox na tela.
Agora voltamos a tela principal do cliente.
Na aba Standard, o primeiro componente é o TFrame.
Clique nele e clique na form principal.
Uma janela aparecerá com todos os frames do seu projeto.
Escolha o FmAddLista.
Bingo!
Seu frame está na tela principal!
Assim:

Agora a Ultima parte.(Mas já?)
No oncreate da form principal coloque:

  procedure TForm1.FormCreate(Sender: TObject);
  begin
    fmaddlista1.lista := Listbox1;
  end;

Pode botar seu programa pra rodar!
Você deve estar se perguntando: “Como isso????”
Simples. Declaramos nosso frame como um controlador de items de um listbox.
Que listbox? Qualquer um que vc carregue para objeto lista dele.
Experimente dar Ctrl+C e Ctrl+V no seu frame da tela principal!
Isso mesmo! Você pode ter quantos quiser. Usados na sua aplicação.
Coloque vários frames e vários listbox e ligue eles no oncreate.
Ligue um mesmo listbox a vários frames FmAddlista.
Agora é por sua imaginação…
Espero que tenham gostado.
Até a próxima!
Falowzzzzzzzzzzzzz