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

Вниз

PopupMenu   Найти похожие ветки 

 
FAskerQ ©   (2007-02-17 10:30) [0]

Вызываю PopupMenu по нажатию кнопки, подскажите пожалуйста как реализовать примерно следующее

if PopupMenu.Появилось then
 // Сделать что то
else
 Exit;


Спасибо


 
Рамиль ©   (2007-02-17 11:17) [1]

Чет я не понял, раз вызываешь, то наверняка появилось, если оштибка не произошла.


 
FAskerQ ©   (2007-02-17 11:25) [2]


> Рамиль ©   (17.02.07 11:17) [1]


Пытаюсь вызвать, иногда получаеться, иногда нет


 
RASkov   (2007-02-17 12:32) [3]

> Вызываю PopupMenu по нажатию кнопки...
> иногда получаеться, иногда нет

Покажи как вызываешь. Т.е покажи "нажатие кнопки".


 
FAskerQ ©   (2007-02-17 12:43) [4]


> RASkov   (17.02.07 12:32) [3]


Я просто не могу вьехать как например сделать

if PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y) then
 ...
else
 ...


как проверить появилось PopupMenu1 после нажатия кнопки или нет, визуально это понятно вижу или не вижу, мне нужен результат false или true


 
RASkov   (2007-02-17 12:51) [5]

> [4] FAskerQ ©   (17.02.07 12:43)

Ну а почему оно может не появиться?
делай так:
try
PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
except
ShowMessage("Чёта попап не вылез");
end;

или координаты попапа получаются "за экраном", может их стоит проверять?

> if PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y) then

Popup - это вообщето процедура, и она ничего не возврощает.


 
RASkov   (2007-02-17 12:58) [6]

> [4] FAskerQ ©   (17.02.07 12:43)

Может так попробуй
if TrackPopupMenu(PopupMenu1.Handle, 0, Mouse.CursorPos.X, Mouse.CursorPos.Y, 0, Handle, nil)
then ShowMessage("Ура появилось") else ShowMessage("не появилось");


 
FAskerQ ©   (2007-02-17 13:32) [7]

to RASkov

Спасибо БОЛЬШОЕ за участие, всё получилось, respect


 
RASkov   (2007-02-17 13:35) [8]

> [7] FAskerQ ©   (17.02.07 13:32)

И что все-таки было? Т.е. из-за чего не вылазил попап?


 
FAskerQ ©   (2007-02-17 13:43) [9]


> RASkov   (17.02.07 13:35) [8]


Из за глупости моей не проходимой и лени, на самом деле код очень большой, долго объяснять.



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

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

Наверх





Память: 0.46 MB
Время: 0.039 c
2-1172047781
webpauk
2007-02-21 11:49
2007.03.11
Сообщение для Timage


15-1171436167
homm
2007-02-14 09:56
2007.03.11
java script


15-1171536100
Boronin
2007-02-15 13:41
2007.03.11
Срочно требуются программисты Delphi+SQL


15-1171382627
xayam
2007-02-13 19:03
2007.03.11
Нестандартный компонент со стандартными свойствами


4-1160470572
AlexT1000
2006-10-10 12:56
2007.03.11
Запрет запуска приложений. Как реализовать?





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