CheckListBox & MEMO

[MeTeOpA]

Вот такой вопрос... как при выделении элемента в CheckListBox занести его в Memo?

например

список

1
2
3
4

и я клацаю по 2. Хочется чтобы в мемо вывело "элемент - 2"

может я не совсем правильно описываю ситуацию, помогите кто чем может...

Ребят срочно надо...

[rdama]

procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
if CheckListBox1.Checked[CheckListBox1.ItemIndex] then
Memo1.Lines.Add(CheckListBox1.Items[CheckListBox1.ItemIndex]);

end;

[MeTeOpA]

Сообщение от rdama

procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
if CheckListBox1.Checked[CheckListBox1.ItemIndex] then
Memo1.Lines.Add(CheckListBox1.Items[CheckListBox1.ItemIndex]);

end;

не совсем то)

здесь в мемо заносится после того как я устанавливаю флажок...
а нельзя чтобы по выделению элемента?

вот наглядно

[MeTeOpA]

врубив мозги пришел к

procedure TForm3.CheckListBox1Click(Sender: TObject);
begin
 Memo1.Text:=('Сетка '+CheckListBox1.Items[CheckListBox1.ItemIndex]);
end;

[rdama]

По правилам русского языка не "об сетке", а "о сетке".
Предлог "об" используется со словами начинающимися на гласную букву.

Memo1.Lines.Add(CheckListBox1.Items[CheckListBox1.ItemIndex]);

[MeTeOpA]

Сообщение от rdama

По правилам русского языка не "об сетке", а "о сетке".
Предлог "об" используется со словами начинающимися на гласную букву.

Memo1.Lines.Add(CheckListBox1.Items[CheckListBox1.ItemIndex]);

полезное замечание....

весы кликнкул..