Entendi,
Olha se esse código ajuda.
if (CheckListBox1.Checked[1]) AND (CheckListBox1.Checked[2]) then
if (CheckListBox1.Selected[1]) then
CheckListBox1.Checked[2] := False
else if (CheckListBox1.Selected[2]) then
CheckListBox1.Checked[1] := False
else if (CheckListBox1.Checked[1]) then
CheckListBox1.Checked[2] := False
else if (CheckListBox1.Checked[2]) then
CheckListBox1.Checked[1] := False;
[]'s
Em 07-08-2010 09:28, rodrigo escreveu:
>
> eu fiz isso, mas o problema é o seguinte:
> se o item 1 ta selecionado e eu clicar para selecionar o item 2, não
> funciona com o código abaixo, pois ele vai ver que o 1 ta selecionado
> e vai desselecionar o item dois antes de verificar o se o item 2 ta
> selecionado
>
> if CheckListBox1.Checked[1] then
> CheckListBox1.Checked[2] := False;
>
> if CheckListBox1.Checked[2] then
> CheckListBox1.Checked[1] := False;
> Como acertar isso?
>
> --- Em delphi-br@yahoogrupos.com.br
> <mailto:delphi-br%40yahoogrupos.com.br>, Darkzad <dark...@...> escreveu
> >
> > No evento OnclickCheck vc verfica se o item1 está selecionado.
> >
> > if CheckListBox1.Checked[1] then
> > CheckListBox1.Checked[2] := False;
> >
> > Não esqueça que a array começa do Zero.
> >
> > []'s
> >
> >
> > Em 06-08-2010 19:53, rodrigo escreveu:
> > >
> > > Olá, tenho um checklistbox onde tenho dois vários itens, mas tem dois
> > > que são mutuamente excludentes, isto é quando um for selecionado o
> > > outro tem que estar sem seleção, como posso fazer isso automático,
> > > para que quando meu usuario selecionar o item1, o item2 perca a
> > > seleção e vice-versa.
> > >
> > > Desde já agradeço
> > >
> > >
> >
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
>
>
[As partes desta mensagem que não continham texto foram removidas]
