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

UpDown   Найти похожие ветки 

← →
HeavyMaster   (2005-11-22 22:42) [0]

Вопрос пустяковый, просто не могу нигде найти инфы - подскажите, плиз.

Как юзать subj?
Я так понимаю - что-то типа

PROCEDURE TForm.UpDown1Click(Sender: TObject; Button: TUDBtnType);
BEGIN
 CASE Button OF
   ###: Edit1.Text := IntToStr( StrToInt( Edit1.Text ) + 1 );
   ###: Edit1.Text := IntToStr( StrToInt( Edit1.Text ) - 1 );
END;

Т. е. : Событие ОнКлик, процедура получает параметр Button типа TUDBtnType, который собственно и поясняет, какая из кнопок (вверх или вниз) собственно говоря была нажата.

Если так, то скажите, ЧТО ДОЛЖНО БЫТЬ ВМЕСТО ###?
Если нет - то поясните пожалуйста, как правильно.

---

← →
Fay ©   (2005-11-22 23:44) [1]

ку?
Edit1.Text := IntToStr(UpDown1.Position);

---

← →
HeavyMaster   (2005-11-23 23:07) [2]

О, спасибо!
А ларчик-то, оказывается, просто открывался.

---

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

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



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