Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

PopupMenu [D6, XP]

FAskerQ © (2007-02-17 10:30:00)
Вызываю PopupMenu по нажатию кнопки, подскажите пожалуйста как реализовать примерно следующее

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

Спасибо

FAskerQ (2007-02-17 13:43:00) [1]

> RASkov (17.02.07 13:35) [8]

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

RASkov (2007-02-17 13:35:00) [2]
> [7] FAskerQ © (17.02.07 13:32)

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

FAskerQ (2007-02-17 13:32:00) [3]
to RASkov

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

RASkov (2007-02-17 12:58:00) [4]
> [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('не появилось');

RASkov (2007-02-17 12:51:00) [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 - это вообщето процедура, и она ничего не возврощает.

FAskerQ (2007-02-17 12:43:00) [6]

> 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:32:00) [7]
> Вызываю PopupMenu по нажатию кнопки...
> иногда получаеться, иногда нет

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

FAskerQ (2007-02-17 11:25:00) [8]

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

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

Рамиль (2007-02-17 11:17:00) [9]
Чет я не понял, раз вызываешь, то наверняка появилось, если оштибка не произошла.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »