Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.17;
Скачать: CL | DM;

Вниз

CheckListBox   Найти похожие ветки 

 
Луарвик ©   (2003-07-03 19:20) [0]

Можно ли и как зделать CheckListBox одновыборным, тоесть выбераешь и отмечаешь одну фишку- с другой снимаеться выделение...


 
Doid ©   (2003-07-03 20:17) [1]

procedure TForm1.chbYourCheckBoxClickCheck(Sender: TObject);
begin
if chbYourCheckBox.Tag <> chbYourCheckBox.ItemIndex then
if chbYourCheckBox.Tag <> -1 then
if chbYourCheckBox.State[chbYourCheckBox.Tag] <> cbUnchecked then
chbYourCheckBox.State[chbYourCheckBox.Tag] := cbUnchecked;
chbYourCheckBox.Tag := chbYourCheckBox.ItemIndex;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
chbYourCheckBox.Tag := -1;
end;


 
Doid ©   (2003-07-03 20:26) [2]

Пардон! Вместо chbYourCheckBox надо поставить chlbYourCheckListBox.
Но от этого суть не меняется. просто забыл про CheckListBox :)



Страницы: 1 вся ветка

Текущий архив: 2003.07.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
14-55735
DenKop
2003-06-30 15:43
2003.07.17
вопрос. unix.


14-55745
Dmitriy O.
2003-07-02 08:01
2003.07.17
Почему женщина ни когда не будет на Марсе.


14-55785
Jumbo
2003-06-29 19:10
2003.07.17
Статистика использования операционок


6-55688
velsi
2003-05-13 11:13
2003.07.17
idFTPserver


14-55807
Кен
2003-06-19 04:48
2003.07.17
Установил Дельфи 7 трайальную версию. Она меня поблагодарила за