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

Вниз

Галочка   Найти похожие ветки 

← →
Ванечка   (2005-06-28 14:32) [0]

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

---

← →
evvcom ©   (2005-06-28 14:37) [1]

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

---

← →
nes ©   (2005-06-28 16:47) [2]

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

---

← →
ssk ©   (2005-06-29 09:28) [3]

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


{
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;

---

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

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

Наверх

Память: 0.47 MB
Время: 0.047 c