[Делфи]popupmenu при определенном действии

[zotox]

[Делфи]

как сделать так чтобы popupmenu выскакивал токо при определенном действии (к примеру если i=0 то не выводится popupmenu, а если i=1 то выводится)

[psycho-coder]

if i = 1 then PopupMenu1.Popup(x, y);

[zotox]

psycho-coder а если в стринггриде надо эту операцию проделать? просто стринггрид он же светит свои X,Y токо в своей области... следовательно попап будет в другом месте а не на стринггриде возле галочки

[psycho-coder]

Просто найти координаты курсора и по ним вывести его

var
  cur: TPoint;
begin
  GetCursorPos(cur);
  PopupMenu1.Popup(cur.X, cur.Y);

[DomiNick]

а если в стринггриде надо эту операцию проделать?

Вообще-то можно настраивать в "Инспекторе Объектов" связанный TPopupMenu почти для каждого контрола в отдельности...

[psycho-coder]

ТС хотел только при определенном действии. Если нет, то через "Инспектор". Хозяин барин, как говорится

[DomiNick]

только при определенном действии

Ну допустим просто будет что-то вроде:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Form1.PopupMenu:=PopupMenu1; // включили PopupMenu для формы
End;

Procedure TForm1.Button2Click(Sender: TObject);
Begin
Form1.PopupMenu:=nil; // выключили PopupMenu для формы
End;

А так по-разному понапридумывать можно... =)