Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.09.12;
Скачать: CL | DM;

Вниз

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

 
appendix ©   (2004-08-26 18:32) [0]

Никак не могу сделать чтоб при нажатии на 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


 
clickmaker ©   (2004-08-26 18:34) [1]

поменяй Max и Min местами


 
appendix ©   (2004-08-26 18:53) [2]

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


 
TUser ©   (2004-08-26 18:57) [3]


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

YourProgram.Strings[17-1];


 
GuAV ©   (2004-08-26 21:24) [4]

а не надо OnChanging обрабатывать, другое обрабатывай.


 
appendix ©   (2004-08-27 20:29) [5]

Удалось сделать то что требовалось используя обработчик события 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-27 22:37) [6]


> NewValue: Smallint

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



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

Текущий архив: 2004.09.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
14-1092813816
Knight
2004-08-18 11:23
2004.09.12
Экспедиция закончилась...


3-1092725944
Dmitriy O.
2004-08-17 10:59
2004.09.12
Автоинкременентный генератор IB


8-1088161023
SeVa
2004-06-25 14:57
2004.09.12
Быстрая отрисовка на Canvas


1-1093340762
shc
2004-08-24 13:46
2004.09.12
где найти TTreeControl


14-1093498497
WondeRu
2004-08-26 09:34
2004.09.12
Гляньте, авось понравится!))))))))))))