Código Delphi [-] procedure TFnew_menu.PopupMenuItemsClick(Sender: TObject); var mi:TjfmenuItem; Begin with sender as TJfMenuItem do begin // mi := TMenuItem(ListBox1.Items.Objects[i]); if Assigned((Sender as TjfmenuItem).OnClick) then begin (Sender as TjfmenuItem).OnClick(nil); //Error de AV //mi.OnClick(nil); //Error de Av si uso esta forma tambie Exit; end End ;
procedure TFnew_menu.PopupMenuItemsClick(Sender: TObject); var mi:TjfmenuItem; Begin with sender as TJfMenuItem do begin // mi := TMenuItem(ListBox1.Items.Objects[i]); if Assigned((Sender as TjfmenuItem).OnClick) then begin (Sender as TjfmenuItem).OnClick(nil); //Error de AV //mi.OnClick(nil); //Error de Av si uso esta forma tambie Exit; end End ;