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

Привести 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

---

← →
Anatoly Podgoretsky ©   (2010-02-01 10:44) [4]

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

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

---

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

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



Память: 0.45 MB
Время: 0.007 c