Sender или как сделать это

← →
Ig (2003-10-25 23:01) [0]

Sender или как сделать это :

Допустим у меня на форме 3 кнопки. Button1.hint:="Кнопка1"; Button2.hint:="Кнопка2"; Button3.hint:="Кнопка3";
label1 и label2;
CheckBox1,CheckBox2:
Panel1 и др.;
переменная (Var) : Typs:string;

Я делаю для формы событие Form1.move и пишу следующее для событий кнопки напр. :

Button1.OnMouseMove:=Form1.OnMouseMove {Событие Form1.OnMouseMove} :

typs:=Sender.className;

label2.caption:=Typs; {Это работает, т.е. сюда записывается класс отправителя сообщения}

label1.caption:=TButton(Sender).hint; {Это тоже работает, сюда записывается подсказка (Hint) для текущего отправителя сообщения OnMouseMove т.е. для TButton}

label1.caption:=typs(Sender).hint; {Это Не Работает!!!!! Хотя по сути одно и то же, что и выше только в Typs заносится имя класса отправителя}

Т.Е. мне надо это для того, что бы для вывода например подсказки в Label1.caption мне надо было писать, что-то вроде :

Label1.caption:=Button1.hint;

Label1.caption:=Label2.hint;

Label1.caption:=CheckBox1.hint;

Label1.caption:=Panel1.hint;

Ладно если их мало, а если их около 300?

Вот, что бы мне не писать такую галиматью Я и пытаюсь это сделать, когда-то Я с этим уже сталкивался, но забыл, может кто-нибудь знает , что-нибудь по этому вопросу (т.е. конкретно
по : label1.caption:=typs(Sender).hint; ( Почему выдает ошибку? ) ) ?

Буду презнателен! Спасибо заранеЕ :)

← →
Islander (2003-10-25 23:06) [1]

Конечно, ты сам подумай, ЧТО ТЫ ДЕЛАЕШЬ?

typs(Sender) - Ты хочешь так запросто большой и важный объект НЕИЗВЕСТНОГО типа привести к строке! А какое уж там поле приводить и как - пусть сам компилятор разбирается?

Надо:

1) Сначала проверить с помощью is, к какому типу принадлжежит объект Sender (может быть, у него вообще нет hint)
2) Определив тип, можно уже работать через as и считывать hint

← →
wicked (2003-10-25 23:08) [2]

> label1.caption:= TControl(Sender).hint;

← →
Ig (2003-10-25 23:09) [3]

То. что у меня есть все имеет свой Hint!

← →
Ig (2003-10-25 23:16) [4]

← →
Islander (2003-10-25 23:20) [5]

Да, wicked был прав - hint общее свойство для всех Tcontrol. Если бы не этот факт, не прокатило бы...

Sender или как сделать это Найти похожие ветки