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

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

Sender?! [D5, Win2k]

Reticent ©   (2002-06-10 16:08:00) 

Доброе время суток!

У меня есть процедура, используемая в нескольких CheckBox в событии OnClickCheck. Так вот как мне определять какой CheckBox Вызвал эту процедуру? Мне надо просто узнать все ли пункты отмечены. Я пишу
procedure ...OnClickCheck(Sender : Onjekt)
...
if Sender.Checked=true <-- тут говорит, что он не знает никакого Checked.
...

как быть подскажте

Всего хорошего!

---

Reticent   (2002-06-10 16:47:00) [1]

>MBo
ну items, a controls. Спутал :*)

Всем спасибо, TCheckBox(Sender).checked сработал :)

---

Kaban   (2002-06-10 16:28:00) [2]

2MBO
Sorry
Новичок же меня и збил с толку
Конечно же
TCheckBox(sender).checked
или
if (Sender as TCheckBox).Checked then

---

MBo   (2002-06-10 16:24:00) [3]

>Reticent
новостей еще не знаю - какие Items у CheckBox появились???????

---

Kaban   (2002-06-10 16:24:00) [4]

MBO

TCheckBox(sender).checked

Не смущайте новичка

---

MBo   (2002-06-10 16:23:00) [5]

If Sender is TCheckBox then
if TCheckBox(sender).checked then...
или (sender as TCheckBox).

---

Kaban   (2002-06-10 16:23:00) [6]

Sender : TObject

if (Sender as TCheckBox).Items[0].Checked then

---

Fly`   (2002-06-10 16:22:00) [7]

with (sender as TCheckBox) do
begin
if (Name="CheckBox1") and (Checked) then ...

end

---

Reticent   (2002-06-10 16:20:00) [8]

так он на Checked ругается, говорит у sender нет такого. Вообще, если я даже Sender.Items... возьму, ну хоть что-нибудь - он ругается при компиляции :(

---

Kaban   (2002-06-10 16:11:00) [9]

if (sender as ...).Checked then
=true уберите

---

Наверх