Buscar

ListBox pratico

Código

(*

Olá pessoal meu nome é Ricardo sou desenvolvedor delphi / C#

hoje vou mostrar de forma simples como arrastar um item de um listbox para o outro como se você arrastar um item no windows explorer.

vamos lá.

1º coloque dois listbox no seu formulario
2º existe uma propriedade no listbox chamada
DragMode o padrão dela é dmManual, passe para dmAutomatic

3º selecione os 2 listbox pressionando a tecla shift
agora va na aba event do seu object inspector
no evento onDragOver existe uma variavel chamada Accept voce deve fazer a mesma receber true.
   
EX: Accept := True;

agora va ate o evento OnDragOver e faca o seguinte codigo:

*)


procedure TSeuFormulario.CheckListBox1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
  i : Word;
begin
  for i:= 0 to (Source as TListBox).Items.Count -1 do
    begin
      if (Source as TListBox).Selected[i] then
        (Sender as TListBox).Items.Add((Source  as TListBox).Items.Strings[i]);
      (Source  as TListBox).DeleteSelected;
    end;
end;

(*

e assim voce arrasta um item de um listbox para o outro.

espero que tenham gostado desta dica simples e objetiva ate a proxima.

*)

 

Publicidade

Vote na dica




Quantidade de votos: 3 votos
Aceitação: 20%


Detalhes da dica

Categoria: Forms
Adicionada dia: 24/09/09
Por: Ricardo Silva Pereira
Visualizada: 6702 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009