| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Галочка [D7, WinXP]

Ванечка ©   (2005-06-28 14:32:00) 

Как для CheckBox прописать действие в событии onClick, для того когда стоит галочка и когда она отсутствует?

---

ssk   (2005-06-29 09:28:00) [1]

кажется на торри я это стырил:


{
When you set a checkbox to Checked the checkbox generates a potentially
unwanted 'OnClick' event...
}

//To prevent it:
procedure SetCheckBox(chk: TCheckBox; B: Boolean);
var
 N: TNotifyEvent;
begin
 with Chk do
 begin
   N := OnClick;
   OnClick := nil;
   Checked := B;
   OnClick := N;
 end;
end;

---

nes   (2005-06-28 16:47:00) [2]

Хм...хе..
case checkbox1.State of
cbUnchecked: label1.caption:='Nope';
cbChecked: Label1.caption:='Yeap';
cbGrayed: Label1.caption:='Dunno';
end;

---

evvcom   (2005-06-28 14:37:00) [3]

if CheckBox.Checked then ... else ...;

---

Наверх