Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

UpDown [D5, WinXP]

appendix © (2004-08-26 18:32:00)
Никак не могу сделать чтоб при нажатии на UpDown значения в Position менялись как надо т.е
по нажатию вверх 0 1 2 3 4 5
потом по нажатию вниз 4 3 2 1 0

Пока работает так:
по нажатию вверх 0 1 2 3 4 5
потом по нажатию вниз 6 5 4 3 2 1 0

GuAV (2004-08-27 22:37:00) [1]

> NewValue: Smallint

Чем не нравится это?
А ваще имхо ОнКлик.

appendix (2004-08-27 20:29:00) [2]
Удалось сделать то что требовалось используя обработчик события OnChangingEx

procedure TForm1.UpDown3ChangingEx(Sender: TObject;
var AllowChange: Boolean; NewValue: Smallint;
Direction: TUpDownDirection);

begin
UpDown3.Tag:=NewValue;
if ((Direction=updNone) and (UpDown3.Position=UpDown3.min)) then UpDown3.Tag:=UpDown3.min;
if ((Direction=updNone) and (UpDown3.Position=UpDown3.max)) then UpDown3.Tag:=UpDown3.max;
end;

Но честно говоря мне кажется это извращение.
Тем более, что пришлось использовать UpDown3.Tag вместо UpDown3.Position

Может кто знает лучший способ??

GuAV (2004-08-26 21:24:00) [3]
а не надо OnChanging обрабатывать, другое обрабатывай.

TUser (2004-08-26 18:57:00) [4]

> в каком месте?

YourProgram.Strings[17-1];

appendix (2004-08-26 18:53:00) [5]
в каком месте?

clickmaker (2004-08-26 18:34:00) [6]
поменяй Max и Min местами

Наверх

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