| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
UpDown [D7, 2000, XP]
HeavyMaster © (2005-11-22 22:42:00)Вопрос пустяковый, просто не могу нигде найти инфы - подскажите, плиз.
Как юзать subj?
Я так понимаю - что-то типа
PROCEDURETForm.UpDown1Click(Sender: TObject; Button: TUDBtnType);
BEGIN
CASEButton OF
###: Edit1.Text := IntToStr( StrToInt( Edit1.Text ) + 1 );
###: Edit1.Text := IntToStr( StrToInt( Edit1.Text ) - 1 );
END;
Т. е. : Событие ОнКлик, процедура получает параметр Button типа TUDBtnType, который собственно и поясняет, какая из кнопок (вверх или вниз) собственно говоря была нажата.
Если так, то скажите, ЧТО ДОЛЖНО БЫТЬ ВМЕСТО ###?
Если нет - то поясните пожалуйста, как правильно.
HeavyMaster (2005-11-23 23:07:00) [1]О, спасибо!
А ларчик-то, оказывается, просто открывался.
Fay (2005-11-22 23:44:00) [2]ку?
Edit1.Text := IntToStr(UpDown1.Position);
| |
