Вниз
Скачать: CL | DM;

Sender?!   Найти похожие ветки 

← →
Reticent ©   (2002-06-10 16:08) [0]

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

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

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

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


← →
Kaban   (2002-06-10 16:11) [1]

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


← →
Reticent ©   (2002-06-10 16:20) [2]

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


← →
Fly` ©   (2002-06-10 16:22) [3]

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

end




← →
MBo ©   (2002-06-10 16:23) [4]

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


← →
Kaban   (2002-06-10 16:23) [5]

Sender : TObject

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


← →
MBo ©   (2002-06-10 16:24) [6]

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


← →
Kaban   (2002-06-10 16:24) [7]

MBO

TCheckBox(sender).checked

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


← →
Kaban   (2002-06-10 16:28) [8]

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



← →
Reticent ©   (2002-06-10 16:47) [9]

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

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



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c
3-64955
Dok_3D
2002-05-27 13:58
2002.06.20
Почему TDataSetProvider не поддерживает ...


3-64901
kserg@ukr.net
2002-05-29 10:33
2002.06.20
DBImage - непонятный глюк с визуализацией формы...


1-65125
AL2002
2002-06-07 10:41
2002.06.20
Как программно выделить строку в списке?


4-65274
Nimble
2002-04-19 04:39
2002.06.20
Form


1-65035
dkDimon
2002-06-08 22:24
2002.06.20
TListView & Win XP




   Наверх