Veja se isso ajuda. Supondo que o nome do componente seja CheckListBox1.
Programe no evento OnDragOver:
if Source is TCheckListBox then Accept := True;
Programe no evento OnEndDrag:
var Ponto: TPoint;
Aux: String;
Chk: Boolean;
i: Integer;
begin
Ponto.x := X;
Ponto.y := Y;
i := CheckListBox1.ItemAtPos(Ponto, True);
if i <> -1 then
begin
Aux := CheckListBox1.Items[i];
Chk := CheckListBox1.Checked[i];
CheckListBox1.Items[i] := CheckListBox1.Items[CheckListBox1.ItemIndex];
CheckListBox1.Checked[i] :=
CheckListBox1.Checked[CheckListBox1.ItemIndex];
CheckListBox1.Items[CheckListBox1.ItemIndex] := Aux;
CheckListBox1.Checked[CheckListBox1.ItemIndex] := Chk;
end;
end;
Fernando
Fabiano Arndt wrote:
> Olá pessoal,
>
> Preciso mudar a ordem dos itens de um checklistbox e gostaria de fazer isso
> arrastando os itens com o mouse de um posição para outra...
>
> se alguém puder me ajudar agradeço....
>
> Valeu obrigado.
>
> Fabiano.
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
