Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "KOL";
Текущий архив: 2008.12.14;
Скачать: [xml.tar.bz2];

Вниз

Как у 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 вся ветка

Форум: "KOL";
Текущий архив: 2008.12.14;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.006 c
15-1223885552
Zlodey
2008-10-13 12:12
2008.12.14
Помогите с формулировкой


2-1225372647
Agent89
2008-10-30 16:17
2008.12.14
чтение LTP порта


2-1225800533
newbie
2008-11-04 15:08
2008.12.14
таймер


2-1225967289
Andrey K
2008-11-06 13:28
2008.12.14
Не запустить проэкт


15-1223417611
Nic
2008-10-08 02:13
2008.12.14
MasterCard Cirrus





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский