-
Vinum (29.11.07 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 © (29.11.07 13:18) [1]Смотри OnChangingEx, там это есть. По крайней мере в Win32 работает. Для WinCE нужно что-то править. Скорее всего, нотификация там приходит родителю, а не самому контролу.
-
Vinum (29.11.07 14:36) [2]Спасибо, разобрался