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

Вниз

Координаты Popup-меню   Найти похожие ветки 

 
Eraser   (2004-03-28 22:25) [0]

Как получить координаты Popup-меню при его появлении, если оно было вызвано с помощью клавиши?


 
P.N.P. ©   (2004-03-28 22:29) [1]

TPopUpMenu.OnPopUp:

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
ShowMessage(IntToStr(PopUpMenu1.PopupPoint.X));
end;


 
Eraser   (2004-03-28 22:42) [2]

> P.N.P. ©   (28.03.04 22:29)

Пустая форма, три TButton"a.
Form1.PopupMenu := PopupMenu1;
При вызове меню с помощью клавиши на любом из Button"ов, PopupMenu1.PopupPoint.X возвращает одно и то же число.
Если вызывать мышкой, то тогда координаты нормальные.
Отчего так?


 
P.N.P. ©   (2004-03-28 22:46) [3]


> Отчего так?

от того, что меню по умолчанию располагается
в верхнем левом углу, а при нажатии мышкой
появляется под курсором - для удобства.


 
Eraser   (2004-03-28 22:55) [4]

Спасибо, а я сразу и не подумал.



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

Форум: "Основная";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.045 c
1-1080434014
Dimedroll
2004-03-28 04:33
2004.04.18
-= Можно ли все Error ловить своей проги посредством WinAPI =-


4-1076272889
Serge_
2004-02-08 23:41
2004.04.18
Реестр XP


4-1076521958
JustAnotherDummy
2004-02-11 20:52
2004.04.18
RichEdit на WinAPI


14-1080407900
DillerXX
2004-03-27 20:18
2004.04.18
Кот


3-1079556435
dfg
2004-03-17 23:47
2004.04.18
Не восстанавливается бд





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский