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]

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

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