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

Как у KOLMHUpDown определить какая стрелочка нажата   Найти похожие ветки 

← →
Vinum   (2007-11-29 12:48) [0]

Здравствуйте, собсно мой код, представлен ниже и по идее должен работать, но почему-то он работает, но не корректно, т.е не сразу схватывает правильное направление стрелки, помогите pls
mhupdown1.Position=1, max=2 min=0


procedure TForm1.MHUpDown1MouseDown(Sender: PControl;
 var Mouse: TMouseEventData);
var i,n,key:integer;
begin n:=1;
i:=form1.mhupdown1.Position;
if i>=n then key:=vk_right else key:=vk_left;
form1.mhupdown1.Position:=1;
form1.Button1.OnKeyDown(button1,key,0);
end;


---

← →
mdw ©   (2007-11-29 13:18) [1]

Смотри OnChangingEx, там это есть. По крайней мере в Win32 работает. Для WinCE нужно что-то править. Скорее всего, нотификация там приходит родителю, а не самому контролу.

---

← →
Vinum   (2007-11-29 14:36) [2]

Спасибо, разобрался

---

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

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



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