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

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

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

oleg1963lora ©   (2010-02-01 10:03:00) 

Здравствуйте уважаемые Мастера!
На панели находятся два компонента 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. Как это можно решить? Групп компонентов много, а танцы с бубном не помогают

---

Anatoly Podgoretsky   (2010-02-01 10:44:00) [1]

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

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

---

oleg1963lora   (2010-02-01 10:21:00) [2]

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

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

---

Вася   (2010-02-01 10:14:00) [3]

может так?

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

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

---

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

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

---

Наверх