Форум: "Основная";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];
Вниз
Отслеживание кликов по пунктам ТCheckListBox? Найти похожие ветки
← →
Александр (2002-11-24 15:47) [0]Здравствуйте!
Как проверить: была ли поставлена или снята птичка с четвертого пункта компонента ТCheckListBox?
Я пытался использовать State, но это не сработало:
procedure TForm1.CheckListBox1Click(Sender: TObject);
var
Stat: TCheckBoxState;
begin
if CheckListBox1.State[4] = Stat then
ShowMessage("OK");
end;
Пожалуйста, помогите!
← →
TTCustomDelphiMaster (2002-11-24 16:20) [1]F1 - TCheckListBox.OnClickCheck
← →
Александр (2002-11-24 17:58) [2]
> F1 - TCheckListBox.OnClickCheck
Ну, и причем тут это? Мне пофиг что было сделано: поставлена птичка или нет, мне нужно узать было ли это вообще сделано над этим пунктом CheckListBox"а.
← →
MBo (2002-11-24 18:06) [3]А кто будет думать и хелп читать? Тебе дали верную наводку - где отслеживать.
← →
Александр (2002-11-24 18:07) [4]Меня интересует ни где отслеживать а как отслеживать?
← →
MBo (2002-11-24 18:16) [5]я же говорю - ДУМАТЬ надо
procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
begin
if checklistbox1.Checked[3] <> saved then begin
saved:=checklistbox1.Checked[3];
if saved then
caption:="It is checked!"
else
caption:="It is NOT checked!";
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
saved:=checklistbox1.Checked[3];
end;
← →
Александр (2002-11-24 18:21) [6]Спасибо, а saved это что?
← →
MBo (2002-11-24 18:28) [7]глобальная переменная или поле формы
saved:boolean
← →
Александр (2002-11-29 22:57) [8]Огромное спасибо, всё работает. Но у меня не стандартный компонент и свойства
OnClickCheck у него нет. Как быть? Помогите! Я пытался создать это свойство в этом компоненте, но оно не стало работать. Та вообще компонент хитрый, кое-что создаеться в ран-тайме...
← →
Song (2002-11-29 23:08) [9]onMouseDown и проверяй координаты.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c
