UniListBox sağ tuş menüsü eklemek

[alucard]

UniListBox1 de bulunan bilgileri sağ tuş ile işlem yaptırmak istiyorum. popup menuyü UniListBox1 e nasıl bağlayacağımı bulamadım.

[Sherzod]

Merhaba,

 

Belki bu çözüm size yardımcı olur:

 

1. UniListBox1 -> ClientEvents -> ExtEvents .. mousedown fn:

function mousedown(sender, x, y, eOpts)
{
  if (eOpts == 2){
    setTimeout(
      function(){
        ajaxRequest(sender, "_mousedown", ["x="+x, "y="+y])
      }
      , 10
    )
  }
}

2. UniListBox1 -> onAjaxEvent:

procedure TMainForm.UniListBox1AjaxEvent(Sender: TComponent; EventName: string;
  Params: TStrings);
var
  X, Y: Integer;
begin
  if EventName = '_mousedown' then
  begin
    X := StrToInt(Params.Values['x']);
    Y := StrToInt(Params.Values['y']);
    UniPopupMenu1.Popup(X, Y, UniListBox1);
  end;
end;

3. UniMainModule -> BrowserOptions [boDisableMouseRightClick = True]

[alucard]

teşekkür ederim