URGENCIA ABSOLUTA, CHECKLISTBOX!

Delphi

06/02/2003

Como eu faço para que em um checklistbox tenha os seu itens, exemplo:
[x] Escritório
[ ] Operações

e verificar após o usuário marcar ou não os itens, eu inserir no campo memo da tabela os itens que estavam marcados.
No caso acima inseriria no campo a palavra ´Escritório´


Anonymous

Anonymous

Curtidas 0

Respostas

Marco C.d.

Marco C.d.

06/02/2003

Caro Amigo,


A procedure abaixo faz o que você deseja. Para que ela funcione, crie um form (no caso chamado de Form1), coloque um BitBtn, um Memo e um CheckListbox... :

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i : integer;
begin
  Memo1.lines.clear;
  for i := 0 to CheckListBox1.Items.Count - 1 do
  begin
    if CheckListBox1.Checked[i] then
       memo1.Lines.Add(CheckListBox1.Items.Strings[i])
  end;     
end;



GOSTEI 0
POSTAR