Текущий архив: 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.44 MB
Время: 0.036 c
