Главная страница
    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.033 c
1-1080457552
BVV
2004-03-28 11:05
2004.04.18
TreeView


1-1081079427
Serious Sam
2004-04-04 15:50
2004.04.18
Как сделать, чтобы приложение не отображалось на панели задач?


8-1071501250
kopcap
2003-12-15 18:14
2004.04.18
Перерисовка кадров


4-1076419821
Islander
2004-02-10 16:30
2004.04.18
Вставить текст из буфера в чужое приложение


3-1079605222
sergej
2004-03-18 13:20
2004.04.18
Local sql





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