Скрытие PopUp меню

[nusik]

Как програмно закрыть все попап окна.
Или хотя бы один попап.

[chandrasecar]

На какое действие вы хотите закрывать PopUpMenu?
Вообще можно использовать PopUpMenu1.Free;, а когда вызываете писать такой код в событии по которому вызывается PopUpMenu:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbRight then begin
    PopUpMenu1:=TPopupMenu.Create(Owner);
    PopUpMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);
  end;
end;

Это конечно может быть не лучшийвариант, но такую хитрость вполне можно применить. Вы только ответье на вопрос в начале сообщения.

[beemoto]

как я поянл:

form1.Click;

можно просто кликнув п форме и все поп-апы закроются

[nusik]

На какое действие вы хотите закрывать PopUpMenu?

На нажатие сочетани клавиш в контроле, т.е. RichEdit1KeyUP

Вообще можно использовать PopUpMenu1.Free;

Задача не позволяет.

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

К сожалению нет - ответ после первой цитаты, другой способ вызова попапа, как следствие нельзя отследить нажатие мауса.

form1.Click;

Проблема не в том ЧТО записать ,а в том КУДА записать, если я его в КейАп пропишу то он не сработает, поскольку онПопап "фокус" уже на попапе а не на форме или ричЕдите...
Решение простое - ничего не делать , объясню : Esc вполне подходит...
Прошу прошение за опоздание и неточную формулировку вопроса.
Большое спасибо за содействие!