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.
*)
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009