Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.009 c
3-27852
NeyroSpace
2002-11-19 17:41
2002.12.09
Помогите! Какие-то проблемы с IBTransaction.


3-27898
Alexey Goosev
2002-11-21 22:44
2002.12.09
Нид хелп!!!Зверски разрастается dbt файл (мемо-поля) dBase 4 базы


1-28123
sen
2002-11-27 16:01
2002.12.09
Сокеты в Делфи


14-28198
Txxx
2002-11-20 01:13
2002.12.09
Загадочный сканер....?!


1-27971
vaneks
2002-11-27 09:13
2002.12.09
WinXP Style





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский