Привести UpDown+Edit к виду (Sender as..)

← →
oleg1963lora (2010-02-01 10:03) [0]

Здравствуйте уважаемые Мастера!
На панели находятся два компонента UpDown ассоциированных с Edit.
В обработчиках имею:procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType); begin Level[1].BasicLevel:=StrToInt(Edit1.Text); end; procedure TForm1.UpDown2Click(Sender: TObject; Button: TUDBtnType); begin Level[1].DisOrder:=StrToInt(Edit2.Text); end;
Хотелось бы получить код наподобие Level[1].BasicLevel:=StrToInt((Sender as.TEdit).Text);,
но обработчик привязан к UpDown. Как это можно решить? Групп компонентов много, а танцы с бубном не помогают

← →
Медвежонок Пятачок © (2010-02-01 10:08) [1]

через сендера получаешь апдаун.
через его ассошиейтс получаешь эдит

← →
Вася (2010-02-01 10:14) [2]

может так?

StrToInt(((Sender as TUpDown).Associate as TEdit).Text);

возьмите лучше TSpinEdit с вкладки Samples.=)

← →
oleg1963lora (2010-02-01 10:21) [3]

> StrToInt(((Sender as TUpDown).Associate as TEdit).Text);

Спасибо, получилось. А то у меня 8 групп и неизвестно сколько их будет.
Приведу к двум строкам, а потом поменяю на TSpinEdit

> oleg1963lora (01.02.2010 10:21:03) [3]

Непонятно, почему ты их приводил к Edit, когда заранее знал, что это TUpDown
Менять тоже не надо, TSpinEdit это не обслуживаемый компонент, приложен как пример.
TUpDown же поддерживаемый и наследуемый от системы, без каких либо фокусов.

Привести UpDown+Edit к виду (Sender as..) Найти похожие ветки